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IDENTIFICATION 
PRODUCT CODE: AC-8507G-MC 
PRODUCT NAME: CZDJ8GO DJ11 EXER & ONLNE 
PROGRAM DATE: JUNE 1982 
MAINTAINER: DIAGNOSTIC ENGINEERING 


THE INFORMATION IN THIS DOCUMENT 
WITHOUT NOTICE AND SHOULD NOT BE CONST 


BY DIGITAL EQUIPMENT TI 
CORPORATION S NO RESPONSIB! 
MAY APPEAR IN THIS DOCUMENT. 

NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RE 
SOFTWARE ON EQUIPMENT THAT 1S NOT SUPPLIED BY 
ITS AFFILIATED COMPANIES. 

COPYRIGHT (C) 1975, 1982 BY DIGITAL EQUIPMENT CORPORATION 


THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT 
CORPORATION: 








DIGITAL MASSBUS 
DEC 


PDP UNIBUS 
DECUS DEC TAPE 
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1. 


2.2 


2.3 


4.2 


ABSTRACT 

THIS PROGRAM CONSISTS OF THREE SUB=PROGRAMS WHICH EXRECISE 

THE DJ11 ASYNCRONOUS matt ae bal PROGRAM 1 IS AN OFF=LINE 

EXERCISER. PROGRAM 2 IS ON-LINE EXERCISER WHICH 

CONTINUOUSLY TRANSMITS THE LAST CHARACTER RECEIVED. PROGRAM 

3 IS AN ECHO TEST. 

NOTE: PROGRAM 1 WILL RUN ANY SILO ALARM LEVEL SETTING. 
(FOR PROGRAM 2 AND 3 SEE SECTION 9.) 

REQUIREMENTS 


EQUIPMENT 


PDP-11 STANDARD COMPUTER WITH CONSOLE TELETYPE 
UP TO 16 DJ11 ASYNCRONOUS MULTIPLEXERS. 


STORAGE 
THIS PROGRAM USES ALL OF 8K, EXCEPT ABSOLUTE LOADER. 


PRELIMINARY PROGRAMS 
CZDJA DJ11 LOGIC TESTS 


LOADING PROCEDURE 
USE STANDARD PROCEDURE FOR ABS TAPES. 


STARTING PROCEDURE 


CONTROL SWITCH SETTINGS 
SEE 5.1 (ALL DOWN FOR WORST CASE TESTING) 


STARTING ADDRESS 
AM SHOULD ALWAYS BE STARTED AT 200. 


THE PROGR IT BE 
RESTARTED AT 1000 AFTER ALL PARAMETERS HAVE BEEN SELECTED. 


eee ae eee SO EEE EE Se me ert + He + wee Se ee 


SEQ 3 
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SEQ 4 


4.3 PROGRAM AND OPERATOR ACTION 


) LOAD PROGRAM INTO MEMORY USING ABS LOADER. 

) LOAD ADDRESS 200. 

) IF HARDWARE SWITCH REGISTER IS AVAILABLE, Ad ny 
(SEE SEC. ALL DOWN FOR WORST ‘a — STAR 

) IF SwITCH-LESS PROCESSOR SIMPLY PRESS S 

) ENTER THE PROGTAM + yer nae “8 OR 3. 

) SELECT LINES IF te ss 

) PROGRAM 1 WILL LOOP BELL Nati RING ONCE EVERY PASS. 

“EGF’* IS ALSO PRINTED ON EACH PASS. 


NOs Why 


as OPERATING PROCEDURE 

5.1 OPERATIONAL SWITCH SETTINGS 
AT SA an. ALL SWITCHES DOWN IS WORST CASE TESTING. FOR 
PROGRAM 1 ONLY, THE BELL WILL RING AND EOP IS PRINTED UPON 
COMPLETION OF A PASS OF THE ENTIRE PROGRAM. 


THE SWITCH SETTINGS ARE: 









SW<15- = 1 ..... HALT ON ERROR 
SW<13> = 1 ..... INHIBIT PRINTOUT 
SW<12> = 1 ..... PRINT SILO ALARM LEVEL (PROG1 ONLY) 
SW<10> = 1 ..... BELL ON oes 

0 ..... BELL ON PASS COMPLETE (PROG1 ONLY) 
SUCS> = & FT icces INK BIT MAINTENANCE (PROG1 ON-LINE) 
SW<6> = 1 ..... SELECT LINES FOR TEST (SEE 5.3) 
PROG] ONLY: 
SW<2:0>= 0 ..... BINARY COUNT PATTERN 

1 .wecee THE QUICK Bate vin GRAY FOX ... 

2 eeezse RIC ( 40-177) 

3-7 eee NOT USE 


THIS age ape HAS BEEN oret ice TO RUN ON A PROCESSOR WITH OR 
WITHOUT A HARDWARE SWITCH ag ery WHEN gee EXECUTED THE 









PROGRAM TESTS THE EXISTENC REGISTER. 
IF NOT FOUND A SOFTWARE SWITCH REGISTER LOCATION (SWREG=LOC. 
176) IS DEFAULTED TO. IF THIS ] THE CA UPON EXECUTION 
THE CONTENTS OF THE G N OCTAL ON THE CONSOLE 





TTY AND ANY CHANGES ARE REQUESTED 
(I1.E.) SWR=XXXXXX NEW= 
POSSIBLE RESPONSES ARE: 
1. <CR> IF NO CHANGES ARE TO BE MADE. 
2. 6 DIGITS 0-7 TO REPRESENT IN OCTAL THE NEW SWITCH 
oa VALUE; LAST DIGIT FOLLOWED BY 


>» @ TO ALLOW REENTERING VALUE IF ERROR IS 
COMMITTED KEYING IN SWREG VALUE. 


ee ee . ‘ 
LLL LG STE Tt aE IE Ct a it ett met me cee SEE LE IS EP! PE em ee — > ee ee rr os 
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5.2 


5.2.1 


5.2.2 


5.2.35 


5.3 


SUBROUTINE ABSTRACTS 


HLT 
THIS ROUTINE (CALLED BY AN EMT INSTRUCTION? PRINTS 


OUT AN 
ERROR MESSAGE (SEE 6.1). TO INHIBIT TYPEQUTS, PUT SwW<13> ON 
A 1. TO RING THE BELL ON AN ERROR, PUT SW<10> ON A 1. 


ALMCK (PROG! ONLY) 


IN THE NORMAL OPERATION THE 
CHARACTER IS _ READ 
: ** CONDIT 








PRINT OUT THE LEVEL CIN OCTAL) 
SET *DONE** HE T 


° INE AL HARACT 
COUNTERS TO ENSURE THAT THE MAXIMUM NUMBER OF CHARACTERS 
BE TRANSFERED IS A MULTIPLE OF THE SILO ALARM LEVEL. 
ENSURES THAT ALL DATA WILL BE READ T 
vc teat SET IF ey NUMBER 


LO ALARM LEVE (NOTE CHARACTE SEN 
IS SET ON EACH CHARACTER IN THE BUFFER, REGARDLESS OF THE 
SILO ALARM LEVEL.) 









TRAPCATCHER 
A **,+2°" = *HALT’’ SEQUENCE IS REPEATED FROM 0 = 56 TO DETECT 
UNEXPECTED s ".#2' = “IQT’’ SEQUENCE IS 


ANY . 
REPEATED FROM 60 - 776 TO DETECT ANY UNEXPECTED INTERRUPTS. 
THUS ANY UNEXPECTED TRAPS WILL HALT AT THE VECTOR + 2. ANY 
UNEXPECTED INTERRUPTS WILL RESULT IN AN ERROR MESSAGE 
"MALT IN “IOTRAP’’. 

PROGRAM AND OPERATOR ACTION 

AFTER THE DEVICE PARAMETERS ARE REPORTED, THE PROGRAM TYPES 
PR #: °*, AT WHICH TIME THE OPERATOR ENTERS ‘'1'*, ‘'2"°. 
OR *'3"’ DEPENDING ON THE SUB=PROGRAM HE WISHES TO RUN. 


IF SW<8> IS ON A 1, THE PROGRAM WILL TYPE OUT ‘' WN SELECT 


SEQ 5 
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6.1 


6.2 


6.3 





LINES ='' THE OPERATOR RESPONDS BY TYPING IN AN OCTAL NUMBER 
REPRE SENTING THE LINE(S) WHICH ARE TO BE TESTED FOR THAT 
DJ11.CINPUT A F A 7 FOR LINES Pid e, EC. 


ERRORS 


ERROR PRINTOUT 
THE FORMAT IS AS FOLLOWS: 
ADR (R1) (R2) (R3) (R4) 


WHERE : 
ADR = ADDRESS OF ERROR H 
(RN) = CONTENTS OF GENERAL. REGISTER ‘N'*. FROM NONE TO 


FOUR OF THESE MA NUMBER 
FOLLOWING THE uLT: E.G., HLT+3 WOULD TYPE (R1) 
ar ak cia” (BY ITSELF) WOULD STOP AFTER TYPING 


TO FIND = FAILING TEST, LOOK AT THE LISTING ABOVE THE 
ADDRESS TYPED. IN MOST CASES THE COMMENT BESIDE THE HLT 
TELLS WHAT WAS BEING CHECKED AND WHAT WAS EXPECTED. 


ERROR RECOVERY 
RESTART AT 200 OR 1000. 


ERROR COUNTER 


AN ERROR COUNT IS KEPT IN ERRORS’. IT CAN BE CLEARED FROM 
200, OR BY RELOADING THE 


pa CONSOLE, BY RESTARTING AT 
PROGRAM. 


RESTRICTIONS 

THIS PROGRAM REQUIRES THAT THE 
FLOATING ADDRESS CONVENTION ( 
AT 160010, THEN THE DH11°S) AND 
ALL BE CONTIGUOUS. 4 T 
(OTHER THAN 160010 ) THEN LOC. 
CONTAIN THIS NONS TANDARD ADDRESS. 

IF THIS PROGRAM IS RUN WITH A MONITOR, I.E. ACT11 OR DDP, 





SEQ 6 
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8.1 


8.3 


8.4 


ONLY PROGRAM 1 IS RUN. 
MISCELLANEOUS 


EXECUTION TIME (PROG! ONLY) 


DUE TO THE VERIOUS BAUD pong 2 SASL SOLE AND THE ge AR m. 
CHECK UP TO 16 DJ11°S AT ONCE, THE EXICUTION mies 

ANYWHERE FROM 3 SECONDS 10 NEARLY AN HOUR. THE FOLLOWING 
TYPICAL, TIMES ARE FOR ONE DJ11 WITH ALL Lines sg SAME 


SPEED, 8 LEVEL CODE, 2 Rhy AND ARITY ON A 
PDP=11/20 FOR MULTIPLE DJ11' 2" MULTIPLY THESE TIMES BY 


LTI 
THE NUMBER OF UNITS SELECTED FOR T 


PROX 
BAUD RUN TIME 


—~ 
—_ 


Ssayso 
3s 


Sess 


STACK POINTER 
STACK IS INITALLY SET TO 1200 


PASS COUNT (PROG1 ONLY) 


A 32 BIT (2 WORDS) PASS COUNT IS KEPT IN “'PCNT'’. IT CAN BE 
CLEARED FROM THE CONSOLE, BY RESTARTING AT - OR BY 
RELOADING THE PROGRAM, 





POWER FAIL 


EACH Pas st CAN BE POWER FAILED WITH NO ERRORS. TO USE. 
START THE PROGRAM I a alt Sr Be THEN UP AT ANY 
TIME. THE ROUTINE SHOULD TY "POWER" RESTART THE 
PROGRAM WITH NO OTHER ERROR TYPEOUTS. 
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PROGRAM DESCRIPTION 


THIS PROGRAM CONSISTS OF THREE SUB=PROGRAMS WHICH EXERCISE 
THE LOGIC OF UP TO 16 DJ11 ASYNCHRONOUS DATA MULTIPLEXERS. 


PROGRAM 1: EXERCISER (OFF-LINE) 


THIS PROGRAM EXERCISES UP TO 256 LINES (16  0J11"S) 
SIMULTANEOUSLY IN INTENANC THREE DIFFERENT DATA 
ATTERNS MAY BE SELECTED FROM THE SWITCH siete ree THE DATA 
PATTERN JIS REPEATED A TI ACH PASS. 


Pp 
THE PROGRAM SHOULD BE RUN FOR AT LEAST 2 PASSES WITH ALL 
SWITCHES DOWN. SwW<9> ON A_ ONE DISABLES THE MAINTENANCE 
MODE, REQUIRING TURN-AROUND CARDS AT THE TERMINATION OF EACH 
LINE BEING TESTED. (NOTE: THE RECIEVER AND TRANSMIT LINES 
MUST BE JUMPERED FOR THE SAME SPEED.) 


PROGRAM 2: CONTINUOUS ECHO EXERCISER (ON-LINE) 

THIS PROGRAM CONTINUOUSLY TRANSMITS THE LAST CHARACTER IT 
RECEIVED ON THE RESPECTIVE LINE. A NULL (000) WILL "ECHO" 
72 TIMES AND THEN TURN OFF THE TRANSMITTER. 


OGRAM 3: ECHO TEST (ON-LINE) 
THIS PROGRAM TRANSMITS A Fag it (*ECHO TEST*) ON EACH LINE 


CAUTION: IF CHARACTERS ARE RECEIVED FASTER, a THEY CAN BE 
TRANSMITTED, THE SOFTWARE BUFFERS MAY OVERF 


NOTE: THE ON-LINE EXERCISERS (PROG2 AND PROG3) ARE OPERATOR 
DEPENDENT, AND THEREFORE DO NOT ee I.E. NO PASSES. 


ACT11 AND DDP MONITORS WILL ONLY RUN 


SEG 8 


_——.-— 


a ee a 


P= a eran emrreme, Qreceneene 
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; SWITCH 
Sw15= 100000 
Sw14= 40000 
SW13= 20000 
SWi2= 10000 
SWi1= 4000 
SW10= 20 
Sw9= 1000 

= 40 
7SW<0:2> 
REM! 


MACY11 30A(1052) eulten ante 


J 
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TCH SETTINGS 


HALT ON ERROR 
USED 


INHIBIT ERROR TYPEOUTS 
sunt usher’ ALARM LEVEL 


E 
:0 - BELL ON PASS COMPLETE 
st = GEL P yp 

ON-LINE (PROG1) 

T LINES nantes EeAT ION TIME ONLY) 


: SELEC 
SELECT MESSAGE (PROG] 


DJ11 REGISTER BIT ASSIGNMENTS: 
CONTROL STATUS REGISTER (CSR) ge 
BITO RECEIVER 






ENABLE (READ/WRITE) 
ELECT T CREA /WAITED 


HALF DUPLEX S 
yy ae (READ/ 
CLEAR MOS ( 


CLEAR 








WRITE ONLY) 
MOS FLAG (READ ONLY) 


NOT 
RECEIVER INTERUPT ENABLE (READ/WRITE) 
DONE (R ONLY) 





to Be tac SCAN ENABLE (READ/WRITE) 
NOT USED BREAK REGISTER (READ/WRITE) 
STATUS ENABLE ae nee 


FI/FO OVE 





(RE 
MASTER TRANSMITTER INTERUPT ENABLE (READ/WRITE) 


TRANSMITTER READY (READ 





REGISTER (RBUF) XXXXX2 (READ ONLY) 


RECEIVED CHARACTER 
LINE R 


UART OVERRUN ERROR 
CHARACTER PRESENT 


TRANSMITTER CONTROL REGISTER (TCR) XXXXX4 (READ/WRITE) 
BITO-15 STOP THE SCANNER ON CORRESPONDING LINE 
TRANSMITTER BUFFER (TBUF) XXXXX6 


BITO-7 TRANSMITTED CHARACTER Sune ONLY) 
BIT8-11 LINE NUMBER (READ ONLY) 


BREAK CONTROL STATUS REGISTER (BCSR) XXXXX4 (BIT10 OF CSR SET) (READ/WRITE) 





ST rR Pr ee. ERNE) SR Or ee 0! «Re Hs ee 8 


SEQ 9 
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OPEN = 
STACK = 


000000 


000046 

014622 

500 

501 000174 
000000 

000000 


000200 
000137 
001000 


000137 
510 001200 


K 1 
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BITO-15 TRNSMIT A BREAK ON CORRESPONDING LINE! 


EMT 
10T 
177776 
%0 
“1 
%2 
“3 
%i, 
%5 
45 
16 
47 
7 
1 
2 
4 
10 
20 
40 
100 
200 
400 
1000 
2000 
4000 
10000 
20000 
40000 
100000 
340 
0 
1200 ° 
000000 
Locations. 4 THRU 
:LOCATIONS 60 THRU 
= 46 
SENDAD 
= 74 
DISPREG:0 
SWREG: 0 
= 2 200 
006312 MP BEGIN 
007316 JMP RESTAR 


TRAP CATC 


ghOCATT 
ONTAIN °*.+2°" AND 
CONTAIN °*.+2"° AND 


16:36 PAGE 11 


R_IN LOCATIONS 0 THRU 776 
AND 2 CONTAIN "HALT" INSTRUCTIONS 
"WALT" IN EVERY VECTOR 

10T"* IN EVERY VECTOR 









2200 ALWAYS IS THE STARTING ADDRESS 
RESTART ADDRESS 


SEQ 10 


—s 


001200 
001202 
001204 


001210 
001212 


001214 


000000 
000000 
000000 


177570 
177570 


000000 
000020 
000000 


000400 


06 
004313 


000400 
005313 
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DJ11 SPECIFICATIONS 


ICNT: 0O 

ERRORS: 0 

PCNT: 0,0 

SwR: 177570 

DISPLAY:177570 
0 





1 


SEQ 11 
16:36 PAGE 12 









s ITERATION COUNT=LH, TEST NO.=RH 
ERROR COUNT REGISTER 

:PASS COUNT REGISTER 
sMINIMUM NUMBER OF TESe ani (PROG1) 
sMAP OF LINES SELECTED, DJ11 #0 
sMAP OF LINES SELECTED, DJ11 #1 
sMAP OF LINES SELECTED, DJ11 #2 
sMAP OF LINES SELECTED, DJ11 #3 
sMAP OF LINES SELECTED, DJ11 #4 
sMAP OF LINES SELECTED, DJ11 #5 
sMAP OF LINES SELECTED, DJ11 #6 
sMAP OF LINES SELECTED, DJ11 #7 
sMAP OF LINES SELECTED, DJ11 #10 
sMAP OF LINES SELECTED, DJ11 #11 
sMAP OF LINES SELECTED, DJ11 #12 
sMAP OF LINES SELECTED, DJ11 #13 
sMAP OF LINES SELECTED, DJ11 #14 
sMAP OF LINES SELECTED, DJ11 #15 
sMAP OF LINES SELECTED, DJ11 #16 
sMAP OF LINES SELECTED, DJ11 #17 
sRECEIVE BUFFER SIZE (PROG3) 
sNUMBER OF UNITS ON THE SYSTEM 
sFIRST ADDRESS 

: SS 

; 5 

; LE = 

: C RTN FLAG sr +eF 
SILO ALARM LEVEL FLAG 

TIME COUNTERS 





sVALUE OF THE SILO ALARM LEVEL 


ce gaa aa ak chunked tah ii 


g TETAAAAAAAAERAARARARAAEREEERERAERERRERERRERRRARRRAERERRRERERERAEREREEES 


; TABLES 

XMTTAB: .BLKW 400 
RCVTAB: .BLKW 400 
MAXTAB: .BLKW 400 
XMTCNT: .BLKW 400 
RCVCNT=XMTCNT+1 


MASK: .BLKW 400 
CNT TAB=MASK+1 


; TRANSMIT DATA POINTER TABLE 


sRECEIVE DATA POINTER TABLE (PROG1) 
sRECEIVE DATA TABLE (PROG2 AND PROG3) 


sPOINTER FOR XMIT/RCV BERS. reer 


; TRANSMIT DATA COUNTER 
RECEIVE DATA COUNTER 


sCHARACTER MASK TABLE 
s ITERATION COUNT AND FLAGS 





ene nannies cesteaseeient nr se St eh i Sa ch stint sence senna hr ene a ee eee er Set eee ne ee ge ee ee 
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SEQ 12 

















567 006312 012706 001200 BEGIN: MOV MSTACK, SP ;SET UP STACK POINTER 

568 006316 012737 000000 177776 MOV #0,a4 PS 3zALLOW INTERUPTS VRG-060382 
569 006324 004737 016236 JSR PC ,SUSWRR 

570 006330 012700 000020 MOV # 

571 006334 012720 015720 MOV #IOTRAP, he ;I0T VECTOR (20) 

572 006340 012720 000340 MOV #340, (RO) + 

573 006344 012720 015556 MOV #PDOWNS, (RO)+  ;POWER FAIL VECTOR (24) 

574 006350 012720 000340 MOV #340 (RO) + 

575 006354 012720 014636 MOV WEMTS, (RO)*  :EMT VECTOR (30) 

576 006360 012720 000340 MOV #340, (RO)+ 

577 006364 005037 001202 CLR ERRORS ;CLEAR ERROR COUNTER 

578 006370 005037 001204 CLR PCNT :CLEAR PASS COUNTER 

579 006374 005037 001206 CLR PCNT+2 

580 006400 012700 000300 MOV #300, RO ;START OF FLOATING VECTOR AREA 
581 006404 005720 2s: TST (RO) + :UPDA TE ) 

582 006406 010060 177776 MOV RO, -2(RO) ;PUT sates IN EACH VECTOR 

583 006412 012726 000004 MOV #IOT (RO)+  ;AND ‘ 

584 006416 022700 001000 CMP #1000, RO CHECK FOR END OF FLOATING VECTOR AREA 
585 006422 003370 Ky BGT 2s [BRANCH H IF MORE 

586 006424 65037 001300 CLR LG CLEAR THE ALARM FLAG 

587 006430 012737 000400 071240 MOV 2 56. .CNINIT ;SET MAXIMUM SIZE VALUES 

5 012737 000106 011244 MOV #70. ,CNINIT+4 FOR PROG #1 

589 006444 012737 000106 011250 MOV #70. ,CNINIT+10 

ra 006452 012737 1 001216 MOV #1, TIMES sSET FOR QV ON FIRST PASS 

592 pabebaeteteheadedntabele adele teledadbebelateheb-inindadntetahdebainiehedababelplabalatsiaiaiaialaiaietatetataietetteteiteit tii 
593 ROUTINE TO MAP ALL THE DJ11°S ON THE SYSTEM 

594 Ealababalatnbainhaieininieieiieinininidiinit tt iiitittitiitiLiLLLLLLLiLiLiTTiTriT ie 
595 

596 013700 001266 DEVADR, RO 3GET FIRST Ag et ces ADDRESS 

597 006464 012702 000001 #1 R2 ;COUNTER FOR DJ11° 

598 006470 012737 000002 #RTI, 

599 006476 005 R1 

600 006500 0002 T CARRY 

601 006502 005710 (RO) S CHECK FOR A DEVICE 

602 006504 103404 7$ $ IF 

603 006506 062700 000010 6$: ADD #10, RO 3G0 TO NEXT DEVICE ADDRESS 

6046 006512 005201 INC R1 sCOUNT DJ11°S 

= 006514 000771 BR 1$ sLOOK FOR MORE 

607 006516 005037 000006 7$: CLR av6 sRESTORE TIMEQUT VECTOR 

608 006522 010137 001264 MOV UNITS ;SAVE COUNT 

609 006526 001005 . BNE He 

610 006530 000004 016632 TYPE, MSGO1 sTYPE “NO DUTT"S!** 

611 006534 000000 HALT aoa tke eae 

ele 006536 000137 014550 JMP @4DONE sRESTAR 

614 Rebdaleistadedichdeictiiuciniita thi hbpp titi tier titi itil iitililiLiriririritTTTeT Tie 
615 SROUTINE TO DETERMINE VECTOR ADDRESSES OF DJ11'S 

616 o SORAAEAAARAA REHASH EEA HHEKEREREKRRAKeReKeKeeReKenteneennereneeeeene 
617 

618 006542 013746 000020 GETVEC: MOV oreo ° 3e80. sSAVE I0T VECTOR 

619 006546 012737 006576 000020 MOV RESET IOT VECTOR 

620 006554 013701 001266 MOV bEVADR. R1 FIRST DJ ADDRESS 

621 006560 012711 040400 MOV # 0400, (R1) sSET CSR 


= . 7 CT a SR Cae etre eta eae tai etnies hee tin a), thee se ok a eee ae me » se 


ee eee 
—- —_ 
ooeeeeeee 
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012761 
000001 
000407 


011602 


aT 4 
005742 
013703 


032777 
001026 
000004 


000004 
000004 
013705 
004737 


0C0004 
013705 
004737 


000004 
013705 
004737 
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000001 


000010 
001270 


000020 
001264 


000004 
000004 


MACY11 nites” 


000004 


1723504 REPORT: 


Rite rn 
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1 VECTOR MAPPING ROUTINE 








:B1T8= TRANS SCAN ENAB 


LE 
:B1T14= TRANS INTERRUPT ENABLE 


MOV #1, 4(R1) LIN 
WAIT ‘UAT FOR AN INTERRUPT 
BR 3$ “CONTINUE AFTER INTERUPT 
1$: MOV (SP), R2 ;SAVE VECTOR ADR. (+4) 
SUB #10, (SP) REPOSITION ADR TO RCV. VEC. 
MOV (SP), VECADR “SAVE FIRST VECTOR 
CMP (SP)+, (SP)+ RESET STACK FROM IOT 
RTI sRETURN FROM INITIAL INTERUPT 
3$: MOV (SP)+, @#20  ;RESTORE IOT VECTOR 
TST ~(R2) :POINT TO XMT. VEC. +2 
MOV UNITS, R3 7SET UP UNIT COUNTER 
:CHECK THAT VECTORS ARE CONTIGUOUS 
2$: CLR 4(R1) :CLEAR TCR 
CLR (R1) :CLEAR CSR 
MOV #101. (R2) RESTORE IOT TO XMT. VEC.+2 
DEC R :CHECK FOR MORE DJ11°S 
BEO REPORT sBRANCH IF DONE 
ADD #10, = R1 ZUPDATE DJ ADR. POINTER 
ADD #10 2 : UPDATE VECTOR POINTER 
MOV #RTi, (R2) [RTI ON INTERRUPT 
MOV #40600, (R1) :SET CS 
MOV 1, 4(R1) zTcR LINE 0 
WAIT WAIT FOR AN INTERRUPT 
BR 2$ 
:REPORT CONFIGURATION 
BIT #B1T13, @SWR  §:CHECK FOR INHIBIT TYPOUT 
BNE GETLEN :SKIP REPORT IF SET 
TYPE, MSGMDN 
TYPE, RETURN 
MSGADR 
V DEVADR, TTY sTYPE DEVADR IN OCTAL 
SR PC -PRINTR 3TYPE LEADING ZERO'S 
V VECADR, TTY :TYPE VECADR IN OCTAL 
JSR PC PRINTS SAND SUPRESS LEADING ZERO'S 
TYPE, MSGNUM 
MOV UNITS, TTY :TYPE UNITS IN OCTAL 
JSR PC PRINTS SAND SUPRESS LEADING ZERO'S 


LE TS SE LN eR EE tm a -« a= ~~ —~——) aw ~-- 


SEQ 13 


a 7 


perereennnees I er ee = -eeeee 


| CZDJBGO DJ11 EXER & ONLNE 


| CZ0J8G.P11 


MACY11 30A(1052) O7=JUN-82 16:36 


O7=JUN-82 16:32 


PAGE 15 
CHARACTER LENGTH MAPPING ROUTINE 


Ralilatelniaiaiabebeiateiiieiialddttdddttd dtd ditt EEELELELILLLLLLLL LLL TTT errr Tet 


sROUTINE TO MAP CHARACTER LENGTHS 


Ealialaleiaislehaieieinisieiiiieisidd dh Add hdd tht LEE LLLELLELILE LLL LLLL LLL TTT TTT 


022737 000176 001210 GETLEN: CMP #SWREG, SWR 
001002 BNE 6$ 
004737 016134 JSR PC. CNTLU 
013700 001264 6$: MOV UNITS, RO 
013701 001266 MOV DEVADR, R1 
012702 000001 1$: MOV , 
012711 000415 MOV #415,  (R1) 
032711 000020 10$: BIT WBIT4, (R1) 
001375 BNE é 
010261 000004 2$: MOV R2 4(R1) 
005711 3$: TST (Ri) 
100376 BPL 3$ 
012761 000377 000006 MOV #377, 6(R1) 
302 ASL 2 
006302 ASL R2 
006302 ASL R2 
006302 ASL R2 
103364 BCC 2$ 
005061 000004 CLR 4(R1) 
062701 000010 ADD #10, = RT 
005300 DEC RO 
001347 BNE 1$ 
3700 001264 MOV UNITS, RO 
013701 001266 MOV DEVADR, R1 
012702 005312 MOV #MASK, Re 
012703 000004 4$: MOV #4 
016104 000002 5$: MOV ech). R4 
100375 BPL g 
010405 R4, RS 
305 SWABS 
042705 177760 BIC #177760,R5 
305 ASL RS 
205 R2, RS 
105104 COMB = soRG 
042704 177400 BIC #177400 ,R4 
010425 MOV R4, (RS)+ 
010425 MOV RE, (RS)+ 
010425 MOV Ré. (RS)+ 
010425 MOV R4, (RS) + 
5303 DEC RS 
001356 ENE 5$ 
062701 000010 ADD #10, = RT 
062702 000040 ADD #40, R2 
005300 DEC RO 
007346 BNE 4$ 


a eT ee ea tn 


sSET UP UNIT COUNTER 
Set UP DEVICE A al POINTER 


T UP LINE 
CMOS, MAINT., TRANS SCAN ENB 


sRCV_ENB, 
WAIT FOR MOS TO CLEAR 


sTRANS CONTROL, ONE LINE AT A TIME 
:WAIT FOR TRANS READY 


SEND A RUBOUT 
SKIP 4 LINES 


: BRANCH A IF MORE LINES 


: CLEAR 
UPDATE Ra ni TO NEXT UNIT 
>CHECK FOR MORE UNITS 


s SET UP UNIT COUNTER 
T UP DEVICE ADDRESS POINTER 
SET 4 han ¢ LEN mee POINTER 


HAR COUNT 
VE AND CHECK CHAR PRESENT 


ee 
2 IN LOW BYTE 
EAR ALL BUT LINE # 


POINTER TO CHAR TABLE 
DATA _INTO MASK 
BYTE 





a aor 
Es 


sADDRESS POINTER TO NEXT DJ 
sCHAR LEN TABLE POINTER 


:COUNT UNITS 
BRANCH BACK IF MORE 


a eer CEP 8 


SEQ 14 


POO ees Oe tee Reem PO er ED Ww ae cree ne 


8 Se See Skee ae eeeenene eee renee 


ee ELLE — 


ore ot EXER & ONLNE 


DJBG.P 


007170 
007174 


005737 
040 


013216 


LL ee NN ee 
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000042 
016613 
015030 
000400 


001220 


0 2 
0150350 
001214 
001264 


001264 
007220 
177777 


007340 
000003 


007340 


MACY11 eihiniaal™ 


171770 


C 2 


akeni at 
ROGRAM SELECTION 


16: 36 PAGE 16 


Seal REe BUR GRUGRAN TD OE Rik ten etetteeonoeseconeseseseqees 


e SELECT THE PROGRAM TO BE R 


PROGRAM 1: OF F=LINE EXER RCISER 


ON-LINE EXERCISER (TRANSMIT LAST CHARACTER RECEIVED) 
ON-LINE ECHO EXERCISER 


Ralabaiaiaiaieleiabiieisbbhidedidd ddd ddd tt LAL LELLELLLLILLLLLLLLLL LTT Tre rere Te 








SELPRO: TST avs2 
BNE ALL 
TYPE, MSGP 
JSR R5, READIN 
» WORD PROGN 
BNE SELPRO 
BIT #B1T8, aSwWR 
BEQ ALL 
CLR RO 
MOV #SVSWO,R1 
SWITCH: TYPE, ETURN 
TYPE, 
MOV 
JSR 
TYPE, 
JSR 
— SAVI 
INC RO 
CMP RO UNITS 
BNE SWITCH 
BR RESTAR 
ALL: MOV UNITS, RO 
MOV #Sv RY 
1$: MOV #17 (R1)+ 
S ¢ 
RESTART POINT 
PROGNO,. RO 
la 
#5, 
‘ LPRO 
@PROGAD (RO) 
PROGNO: 
PROGAD: 1 
PROG! 
PROG 
PROG 


SS GS CNN A a ieee area nh mai aaa ida mcs a Oe ee eo i od 


sCHECK FOR ACY 11 OR DDF 
;BRANCH IF MONITOR 


READ A NUMBER FROM THE CTY 


CHECK FOR a. SELECT LINES 
;BRANCH IF 


SET UP UNIT. COUNTER, DISPLAY 
sSET UP SWITCH TABLE POINTER 


sPRINT THE NUMBER OF THE DR11C 
sASL FOR THE SELECTED LINES 


IT COUNTER 
ITCH TABLE POINTER 
NES 


ss cee 
fea 


;DEFAULT TO PROGRAM 1 


SEQ 15 


D2 








SEQ 16 
- 2DIBGO. bt EXER & ONLNE MACY11 30A(1052) O7=JUN-82 16:36 PAGE 17 
CZDJBG.P11  07=JUN-82 16:32 PROG]: OFF-LINE EXERCISER 
768 
ooo ae nag NNN NANRRRRREEREREEERERERREEEEREEE ERE REE Ree 
| 770 :PROGRAM 1: TRANSMIT AND RECEIVE ALL LINES SIMULTANEOUSLY 
| OP ; OFF=LINE: Sc > = 0 
| oye USES THE DATA A TABLE SELECTED BY SW<2:0> 
| em ; EACH LINE REPEATS THE PATTERN AT LEAST 16 TIMES 
776 | siacaninccadene saPaMEU Rhine ddidnnaaddpinbdnehdséneceseecbanesiacenees 
| 2??? 
2778 «007350 000005 PROG]: RESET :CLEAR OUT THE WORL 
| 279 «007352 005037 001276 CLR ISRFLG [CLEAR INTR. SVC. RIN. FLAG. rp +4F 
780 007356 012706 001200 MOV #STACK, SP sRESET THE STACK POINTER 
| 781 007362 052737 000340 177776 BIS #340, aaPS :PROCESSOR TO LEVEL 7 
782 007370 012701 001312 MOV #XMTTAB,R1 :FIRST TABLE POINTER 
783 007374 012702 002000 MOV #2000,R2 [LENGTH OF TABLES (WORDS) <cont 
784 007400 005021 1$: CLR (R1)¢ [CLEAR THE TABLE 
| 785 007402 005302 DEC R2 
786 007404 001375 BNE i$ 
| 287 007406 012702 000400 MOV #400,R2 ;LENGTH OF MASK/COUNT TABLE 
788 007412 005201 2$: INC R1 *SKIP MASK 
789 607414 105021 CLRB ss (R1)¢ [CLEAR COUNT 
790 007416 005302 DEC R2 
291 007420 001374 BNE 
793 :ROUTINE TO INITIALIZE ALL DJ11°S AND THEIR ISR’S: 
79%, :SET UP ALL INTE ORS 
| 795 :SET UP DEVICE ADDRESSES IN LINKER ROUTINES 
7% SSET CSR'S EVERYTHING ENABLED 
297 7SET TCR'S, ALL LINES ENABLED 
799 007422 005000 PTINIT: CLR 
800 007424 013701 MOV DEVADR, R1 
801 007430 013702 001270 MOV CADR, Re 
802 007434 012703 MOV #RISRO, R 
803 607440 010322 11$: MOV (R2)+  ;SET UP RECEIVER INTERUPT VECTOR 
804 007442 013722 001272 MOV RCVLVL, (R2)+ 
805 007446 022323 CMP (R3)+, (R3)4 
806 007450 010113 MOV x (R3) 
897 007452 062723 000002 ADD #2 (R3)+ 
808 007456 005723 TST (RS)+ 
809 007460 010322 : MOV R3 (R2)+ 
810 007462 013722 00127% MOV XMILVL, (R2)4 
811 007466 022323 CMP (R3)+, (R3)¢ 
812 007470 010123 MOV (R3)+ 
813 007472 005011 CLR 
814 007474 052711 050510 BIS #50510 (R1) T 
815 *BIT3 = CLEAR MOS 
| gM :BIT6 = RECEIVER INTERUPT ENABLE 
817 :B1T8 = TRANSMITTER SCAN ENABLE 
818 ‘BIT12. = STATUS ENABLE 
819 :BIT14 = TRANSMITTER INTERUPT ENABLE 
820 007500 032711 000020 13$: BIT IT4, (R1)  SCHECK FOR MOS TO CLEAR 
821 007504 001375 BNE 1 
822 007506 005737 001300 TST ALNFLG ;HAS THE SILO ALARM LEVEL BEEN CHECKED? 
: 823 007512 001002 BNE 10$ sYES 





CZDJBGO DJ11 EXER & ONLNE 
| CZDJ8G.P11 


re ee re cerereneee ene eeeeees 


tauaen CO, NE eee 


007514 
007520 


004737 


012701 


121137 
003375 
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010032 
001220 
000001 


171444 
177770 


001260 
011236 


011240 
001260 
001000 
000014 
000020 
000001 
000010 
001264 
000001 
000140 


000001 
000002 


004312 
000400 


MACY11 30A(1052) 
PROG1: 


000004 
001260 


10$: 


148: 


15$: 


20$: 


12$: 


21$: 
22$ 


ge 2 





O7=JUN-82 16:36 PAGE 18 
OFF-LINE EXERCISER 
JSR PC,ALMCK :NO. GO DO IT 
ASL R * 2 
MOV SVSWO(RO),4(R1) SET. TCR BITS (CSR + 4) 
ASR RO : RESTORE yt COUNTER 
MOV #1, MARK  :SET UP MARKER 
MOV aswR, RS GET SWITCH SETTINGS 
BIC #177770,R5 :MASK MESSAGE # 
ASL RS 
ASL R5 
MOV (R3)+, RG ;SET UP OFFSET TO TABLES 
BI MARK. 4(R1) CHECK FOR LINE SELECTED IN TCR 
MOV ADRNIT(5) ,.XMTTAB(4) 
MOV ADRNIT(5) ,RCVTAB(4) 
MOVB  CNTNIT(S).XMTCNT(4) 
MOVB  (CNINIT(S) RCVCNT(4) 
TST (RG) zINC OFFSET TO NEXT LINE 
ASL K 
BCC 14$ 
BIT #B1T9, @SWR §:CHECK FOR ON-LINE 
BNE 1 [BRANCH IF ON-LINE 
BIS #14, (R1) SET THE MAINTENANCE BIT AND CLR MOS 
Bir #B1T4,(R1) WAIT FOR MOS TO CLEAR 
BIS (R1) :TURN ON RCV ENABLE 
ADD Ar :POINT TO THE NEXT CSR 
INC RO 
CMP RO UNITS 
BNE 11$ 
MOV #1 ALMELG 7SET THE ALARM LEVEL FLAG 
BIC #140, aePS  <:LOWER PROCESSOR PRIORITY 
BR FORGND 260 DO IT 
BIS #7, (R1) ;TURN ON RCV EN 
rst Ses" CLEAR JUNK OUT OF THE RBUF 
BR 1 


 ibehebdehaintnhdiistddabsbinitibdiidetaiiteit hitb bitLriLLLLLLiLLiTit TTT Tee 


TO MONITOR TABLES 


S annn << (AIRE Dae lice Tie kl nee re ern reteeneennenanes 








NOTE - PROGRAM MA 
: IF THIS HAPPENS. RUN DZDJA 


FORGND: MOV 
21$: 


22$: 


LLL LOL LLL ODA OL I BE ES NE UE te et 






@XMTCNT RI 
#400,R2- 
(R1) 

21$ 

#2,R1 

R 





21$ 
#RCVCNT RI 
#400,R2 
(R71), COUNT 


22$ 


Y HANG 7 A LOOP. 


CHECK FOR gl TABLE CLR 
BRANCH IF 

260 TO NEXT LINE ENTRY 

: COUNT LINES 





# OF CHAR LEFT IN RBUF LESS THAN 
sALO ALARM LEVEL 
NO WAIT FOR THEM 


2 EE St | EES + ERR oF EET. 6. ee ee 


SEQ 17 


, z 



































SEQ 18 
| CZDIBGO Dstt EXER & ONLNE MACY11 30A(1052) O7=JUN-82 16:36 PAGE 19 
C2DJBG.P O7=JUN-82 16:32 BACKGROUND MONITOR 
880 007764 062701 000002 ADD #2,R1 :IF YES IGNORE THEM 
881 007770 005302 DEC R2 *COUNT LINES 
882 007772 001371 BNE 22$ ‘BRANCH IF MORE LINES 
883 007774 005337 001216 DEC TIMES :D0 THIS AGAIN? 
884 010000 001402 BEQ 23$ “NO, GET OUT 
885 010002 000137 007350 ‘MP PROG? 
886 010006 905737 001276 23$: ST ISRFLG :SEE IF FLAG IS ZERO rr+4F 
887 010012 001002 NE 1$ :IF NOT, BR + 96F 
888 010014 000006 016366 TYPE, | TRNERR iF VES; RCV DATA ERROR Titer 
889 010020 012737 000020 001216 1S: MOV #20, TIMES ri6 T TIMES THE NEXT TIME 
890 010026 000137 014550 JMP a4DONE ‘SKIP ISR'S 
891 010032 012761 000001 000004 ALMCK: MOV #1,4(R1) :SET LINE 0 IN THE TCR 
892 010040 052711 000004 BIS #BIT2, (R1) 7SET THE MAINT BIT 
893 010044 052711 000001 BIS #1, (R71) :SET RCV EN AFTER MAINTENANCE BIT 
010050 005037 001306 CLR 
895 010054 005037 0013 CLR 
896 010060 005037 001302 CLR TIMERA 
897 010064 012737 000200 001304 2s: MOV #200, TIMERB :SET UP TIME CONSTANTS 
898 010072 005711 TST (R1) :WAIT FOR TRANSFER READY BIT 
899 010074 100373 BPL $ 
900 010076 112761 000377 000006 MOVB #377,6(R1) ;OUTPUT A CHAR TO TBUF 
901 010104 005237 001306 INC COUNT : COUNT EACH C 
902 010110 105711 1$: TSTB =. (R11) K FOR DONE IN THE CSR 
903 010112 100405 BMI GET OUT OF THE LOOP 
010114 004537 010344 JSR RS, TIME “GIVE DONE TIME TO SET 
905 010120 000773 BR 1$ sRETURN TO TEST FOR DONE AGAI 
010122 0007 2$ sRETURN T ANOTHER CHAR 
907 010124 000742 BR ALMCK 3ERROR RETURN TRY AGAIN 
908 010126 042711 000001 3S: BIC #B1T0, (R1) [TURN OFF RCV ENABLE 
909 010132 052717 000010 BIS #8173. (R1) :CLEAR MOS 
310 010136 022737 000001 001306 cP #1, COUNT z1F SILO LEVEL SET FOR 1 THEN GET OUT 
912 010146 063737 001310 5$: ADD COUNT, SUM 3GET THE LARGEST MULTIPLE OF THE 
913 010154 023727 001310 000106 CMP #70. 3SILO ALARM LEVEL AND USE IT IN THE 
914 010162 002771 BLT 5$ sTHREE SIZE LOCATI 
915 010164 001403 BEQ z1F EQUAL USE I 
916 010166 163737 001306 001310 SUB COUNT , SUM 3IF GREA TER SUBTRACT ONE COUNT OFF 
010174 013737 001310 011244 6$: MOV SUM.CNTNIT+4 §3AS CLOSE TO 70 AS POSSIBLE 
918 202 013737 001310 011250 MOV SUM, CNTNIT+10 
010210 063737 001306 001310 7s: ADD COUNT :CONTINUE TO A COUNT OF 256 
010216 023727 001310 000377 CMP a 
921 010224 002771 BLT 
010226 163737 001306 001310 SUB COUNT, SUM 
923 010254 015737 001310 011240 108: nov apa AS CLOSE el? 256 AS POSSIBLE 
925 010244 012737 000377 011240 4$: MOV sCNTNIT sPUT SIZE TO MAX VALUE 
926 010252 012737 000106 011244 MOV ; 0... CNINIT+ 
927 010260 012737 000106 011250 MOV #70. ENTNIT*10 
010266 042711 11$: BIC #B1T2,(R1) ; TURN OFF THE MAINT BIT 
010272 032711 000020 12$: BIT *(R1) [WAIT FOR MOS TO CLEAR 
010276 00137 BNE 
931 300 004737 016316 JSR PC ,KBDINT :GET THE SWITCH REGISTER 
304 032777 010000 170676 BIT su asSwR :PRINT ALARM LEVEL? 
933 010312 001413 BEO 13$ 3NO 
934 010314 000004 016741 TYPE, MALARM 
935 010320 010105 HOV R1,TTY :YES, PRINT CSR FIRST 


G 2 





















SEQ 19 
CZDJBGO DJ11 EXER & ONLNE MACY11 30A(1052) O7=JUN-82 16:36 PAGE 20 
| CZDJBG.P11 O7=JUN-82 16:32 BACKGROUND MONITOR 
936 010322 004737 015374 JSR PC,PRINTR 
937 010326 000004 0146735 TYPE, MSGDAS 
938 010332 013705 001306 MOV COUNT, TTY ;PRINT ALARM LEVEL 
939 010336 004737 015374 JSR PC. PRINTR 
ae 010342 000207 13$: RTS PC 
308 
944 010344 105237 001302 TIME:  INCB TIMERA : INCREMENT THROUGH ONE WORD 
945 010350 001012 BNE 1$ GO TEST FOR DONE AGAIN 
946 010352 005237 001304 DEC TIMERB *MAKE TIMERB LARGER IF FAST PROCESSOR 
947 010356 001007 BNE 1$ 
948 010360 023727 001306 000022 CMP COUNT , #22 + HAVE OUTPUTTED 18 TIMES 
949 010366 001002 BNE 2$ GO OUTPUT ANOTHER CHAR 
on 010370 104001 HLT+1 ives. es DID NOT SET AFTER 18 OUTPUTS 
952 010372 005725 TST (R5)+ :SET RS FOR ERROR RETURN 
953 0103574 005725 2$: TST (R5)+ :SET RS FOR NEXT OUTPUT RETURN 
eee 010376 000205 1$: RTS RS * RETURN FROM ABCVE OR RETEST DONE 
956 g TEAAAAAAAAAAAAAAAAAAREAERERAERAREREREREREEERREEREREEEREREERREREE REE EEES 
957 *PROG1 LINKERS TO DJ11 INTERRUPT SERVICE ROUTINES 
958 + Ebeliaiabaiahebainieinhehsinisiininiiinidbibiidt bi ttELELLLLELLLLLLLE LLL Lite 
959 
960 010400 004037 011114 RISRO: JSR 1 bee 
961 010404 160012 000000 . WORD eréae) +<0#10>>,<40#0> 
010410 004037 011000 XISRO: JSR RO 
963 010414 160010 000000 é <160010+<0*10>>,<40*0> 
010420 004037 011174 RISRi: JSR SR 
965 010424 160022 000040 WORD 12+<1*10>>,<4021> 
010430 004037 011000 XISR1: JSR 
967 010434 160020 000040 : soyaey +<1#10>>,<40*1> 
010440 004037 011114 RISR2: JSR 
969 010444 160032 000700 Wi oe #€2#10>>,<4022> 
010450 004037 011000 XISR2: JSR 
971 010454 160030 000100 WORD Sam #10>>,<40*2> 
972 013460 004037 011114 RISR3: JSR yi fre 
973 0°0464 160042 000140 <7 124<3*10>>,<40*3> 
974 010470 004037 011000 XISR3: ROXM 
975 010474 160040 000140 218001 +<3*10>>,<4023> 
976 010500 004037 011114 RISR4: R | 
977 010504 160052 060200 -WORD <160012+<4210>>,<4024> 
978 010510 004037 011000 XISR4: JSR | 
979 010514 160050 000200 - WORD <1600104<4210>>,<6024> 
980 010520 006037 011114 RISRS: JSR RCV 
981 010524 160062 000240 eWORD <160012+<5*10>>,<40*5> 
982 010530 004037 011000 XISRS: JSR XMT 
983 010534 160060 000240 -WORD <160010+<5#10>>, <4085> 
984 010540 004037 011114 RISR6: JSR RCVISR 
985 010544 160072 000300 -WORD < 12+<6*10>>, <40*6> 
986 010550 004037 011000 MISR6: JSR T 
987 010554 160070 000300 WORD 10+<6*10>>,<460*6> 
988 010560 004037 0611114 RISR7: JSR ROAR VISR 
989 010564 160102 000340 ~ WORD 1 +#<7#10>>,<408#7> 
010570 0064037 011000 XISR7: JSR 


990 
991 010574 160100 000340 » WORD a <40*7> 


Ff gen gl + th EXER & ONLNE 


BC.P 


992 
993 


010600 


010146 
010246 
012001 


O7-JUN=82 16:3 


011114 


H 2 


MACY11 30A(1052) O7=JUN-82 16:36 PAGE 21 
ISR LINKERS 










RISR10: JSR RO.RCVISR 
WORD <1600128<10810>>, <40*10> 
XISR10: JSR R 
. WORD <1600108<10s10>>, <40*10> 
RISR11: JSR CVISR 
WORD <160012*c11610>>, <40*11> 
XISR11: JSR R 
WORD c160010%211#10>9, <40*11> 
RISR12: JSR R 
.WORD <1600124+<12#10>>,<40#12> 
XISR12: JSR XMTISR 
WORD <160010+<12#10>>, <40*12> 
RISR13: JSR RO.RC 
.WORD  <1600124+<13#10>>, <40#13> 
XISR13: JSR xs 
. WORD <1600108<13#10>>, <40*13> 
RISR14: JSR RO.RCVISR 
. WORD <160012<14#10>>, <40*14> 
XISR14: JSR RO 
WORD <1800102¢14*10>>, <40*14> 
RISR1S: JSR RO.RCVISR 
-WORD <7 124<15*10>>,<40*15> 
XISR15: JSR RO. XM 
. WORD <160010+<15#10>>, <40*15> 
RISR16: JSR CVISR 
WORD 218001 22016810>> ,<40*16> 
XISR16: JSR I 
.WORD <160010#<16210>>.<40*16> 
RISR17: JSR RO.RCVISR 
.WORD <1600124<17#10>>, <40*17> 
XISR17: JSR XATISR 
-WORD <160010+<17#10>>, <40*17> 
 Eebeindeintebainittaheinieistidniniitniniitainid tip ittttrititiLiLiLiLiLiriiiiiiii Te 
: TRANSMITTER INTERRUPT SERVICE ROUTINE 
j PROReeeneneneneereeneereeeeneneenecaecneneesateceneneeccccacenccacccece 
XMTISR: 
Rl 7(6) :PUSH R1 ON STACK 
sPUSH R2 ON STACK 
CRO) mt 
1$: i sCHECK FOR TRANS READY 
7ER1) R2 3GET LINE NO. 
(RO) ,R2 
XMTCNT (2) :TST FOR ZERO 
000006 SXATTAB(2) .6(1) :SEND A CHARACTER 
XMTCNT (3) sCOUNT CHARACTERS 
IN AMT TAB( ) SUPDATE TABLE POINTER 
2s: MOV Rg -(SP) 
CLR MATTAB(2) :CLEAR TABLE POINTER 


AREER WEEE SERIE: Ee AR een SS 8 tee Ee ee -= — - -—-. 


SEQ 20 


CZDJBGO DJ11 EXER & ONLNE 
CZ2DJBG.P11 O7-JUN-82 16:32 

1048 011062 005003 

1049 011064 000261 

1050 011066 006103 

1051 011070 005302 

1052 011072 100375 

1053 011074 040361 000004 

1054 011100 01260 

1055 011102 000741 

1056 011104 

1057 011104 012602 

1058 011106 012601 

1059 01117110 012600 

1060 011112 000002 

1061 

1062 

1063 

1064 

1065 

1066 0117114 

1067 011114 010146 

1068 011116 010246 

1069 011120 010346 

1070 011122 010446 

1071 011124 012001 

1072 011126 011102 

1073 011130 32 

1074 011132 932702 070000 

1075 011136 001403 

1076 011140 104002 

1077 

1078 

1679 

1080 

1081 

1082 011142 042702 070000 

1083 011146 010204 

1084 011150 105004 

1085 011152 304 

1086 011154 106304 

1087 011156 1004 

1088 011160 117403 002312 

1089 011164 03 005312 

1090 011170 120302 

1091 011172 001403 

1092 011174 042703 177400 

1093 011200 10400 

1094 

1095 

1096 

1097 011202 105 004313 

1098 011206 001403 

1099 011210 005264 002312 

1100 011214 000744 

1101 011216 

1102 011216 012604 

1103 011220 012603 


I 


MACY11 30A(10582) 07-JUN-82 

TRANSMITTER ISR 
CLR RS 
SEC 

3$: ROL R3 
DEC R2 
BPL 3$ 
BIC R3,4(R1) 
MOV (SP)+,R3 
BR 1$ 

4$: 
MOV (6)+,R2 
MOV (6)+,R1 
MOV (6)+,R0 


2 


16:36 PAGE 22 


sCLEAR TCR BIT FOR LINE 
RESTORE R3 


sPOP STACK INTO R2 
sPOP STACK INTO R1 
sPOP STACK INTO RO 


EalaladeieiabahabeistniteleialelstetiateiainitnictedidAt ttt LiLELELLELLELELELLLLL LTT TTT 


:PROG1 


RECEIVER INTERRUPT SERVICE ROUTINE 


lahabalaiaiabadainiebabdeinisiniciniaiiiniindid itd dh ditt LLiLLELLLLLLLLLL LLL Litt rTTTTTTTe 








RCVISR: 
MOV R1,-(6) 
MOV ee} 
MOV R3.~(6) 
MOV R4.=(6) 
MOV (RO) +,R1 
1$: MOV (R1) ,R2 
BPL 7$ 
BIT #70000 ,R2 
BEQ 2$ 
HLT+2 
#70000, R2 
23: R2, R4 
R4 
(RO) RG 
@RCVTAB(RG) .R3 
MASK (4) .R3 
#177400,R3 
3S: DECB RCVCNT(4) 
BEQ 7$ 
INC REVTAB(4) 
7$: 
MOV (6)+,R4 
MOV (6)+,R3 


OLE LE SD EN OE ETE a ta On Ee Se em Se ee Ree ere 


7 eS 8 ne Ake cow 


;PUSH R1 ON STACK 

3PUSH R2 ON STACK 

;PUSH RS ON STACK 

:PUSH R4 ON STACK 

;GET RBUF ADDRESS 

SREAD THE DATA 

sBRANCH IF NO CHAR PRESENT 
Bly ERRORS 







BYTE 

* 2, ALSO CLR CHAR PRESENT 
OFFSET 

T EXPECTED DATA 

MASK CHARACTER LENGTH 


sBRANCH IF OK 
sMAKE SURE UPPER BYTE CLEAR 
sDATA ERROR 


sRI=RBUF ADDRESS 
sRe=CONTENTS OF RBUF (DATA) 
sRS=EXPECTED DATA 





sUPDATE TABLE POINTER 
; CONTINUE 


sPOP STACK INTO R4& 
sPOP STACK INTO R3 


ee 


"SEQ 21 


J 2 





SEQ 22 
| CZDJ8GO DJ11 EXER & ONLNE MACY11 30A(1052) O7=JUN-82 16:36 PAGE 23 
| CZDJBG.P11 O7-JUN-82 16:32 RECEIVER ISR 
| 1104 011222 012602 “OV = (6) +, R2 sPOP STACK INTO R2 
| 1105 011224 012601 ted (6)+,R1 sPOP STACK INTO R1 
| 1106 011226 012600 MOV (6)+,R0 sPOP STACK INTO RO 
/ 1107 011230 005237 001276 INC ISRFLG sSTEP INT SVC RIN FLAG 3200 
| 1198 011234 000002 RTI 
1110 Relaleleiiahalaiateiiahidabehdetaiattddtd tt d tt dt ttt LiELELLELLLILLELLL LLL LTT TTT errr 
p14 sPROG] DATA TABLES 
1112 alaiahateleiabbalelehaitabeisichebiehiddtddtedd dtd ttt ELELELELLLILLLLLLL LLL Tir t iT TTTeT 
1113 
1174 011236 011302 ADRNIT: ad sSW<2:0>=0 BINARY COUNT PATTERN 
1115 011240 000377 CNINIT: 377 sSIZE=256. 
1116 011242 011702 PHRASE sSW<2:0>=1 ‘‘THE QUICK SILVER GRAY FOX...°° 
1117 011244 000106 . :SIZE=70. 
1718 011246 011274 SIXBIT sSW<2:0>=2 040 THRU 137 
1119 011250 000106 70. sSIZE=70. 
1120 011252 016776 END 
1127 011254 000001 1 
1122 011256 017376 END+400 
1123 011260 1 
1124 011262 017776 END+1000 
1125 011264 000001 
1126 011266 020376 END+1400 
1127 011270 000001 1 
1128 011272 020776 E 
1129 011274 005015 177777 177777 SIXxBIT: <15><12><377><377><377><377> sCR-LF, FILLERS 
1130 011302 040 BINARY: 40 
1137 011303 041 a 
1132 011304 042 4 
1133 011305 043 4 
1134 011306 044 44 
1135 1307 045 45 
1136 011310 046 4 
1137 011311 7 oe 
1138 011312 050 30 
1139 011313 051 51 
1140 011314 052 > 
1141 011315 053 5 
1142 011316 054 54 
1143 011317 055 35 
1144 1320 056 3 
1145 011321 057 > 
1146 011322 060 $9 
1147 011323 061 6 
1148 011324 062 6¢ 
1149 011325 063 e 
1150 011326 064 
1151 011327 065 65 
1152 911330 066 06 
1153 011333 067 6 
1154 011332 070 0 
1155 011333 071 71 
1156 011334 072 ? 
4157 011335 073 ? 
1158 011336 074 74 
1159 011337 075 : 75 


K 2 








SEQ 23 
| CZDJBGO DJ11 EXER & ONLNE MACY11 30A(1052) O7=JUN-82 16:36 PAGE 24 
| CZDJBG.P11 = O7=JUN-82 16:32 DATA TABLES 
| 1160 011340 = 076 BYTE 76 
| 1167 011341077 BYTE 77 
| 1962 011342 = 100 ‘BYTE 100 
| 1163 011343101 ‘BYTE 101 
| 1164 011344 = 102 -BYTE 102 
1965 (011345103 ‘BYTE 103 
| 1966 011346 = 104 ‘BYTE 104 
116? 011347 = 105 ‘BYTE 105 
1168 011350 = 106 ‘BYTE 106 
1169 011351 = 107 “BYTE 107 
1170 011352110 ‘BYTE 310 
1171 011353111 BYTE = 111 
1172 011354 112 BYTE 112 
1173 011355113 BYTE 113 
1174 011356 = 114 114 
1175 011357115 YTE 115 
1176 011360 = 116 116 
117? 011367117 117 
1178 011362 = 120 120 
1179 011363 = 121 121 
1180 011364 122 128 
1181 011365 = 123 1 
1182 011366 = 124 124 
1183 011367125 125 
1184 011370 8=— 126 126 
1185 011371 127 1 
1186 011372 = 130 1 
1187 011373131 131 
1188 011374 = 132 1 
1189 011375133 1 
1190 011376 = 134 1 
1191 011377 135 135 
1192 011400 =: 136 1 
1193 011401 §=— 137 1 
1194 011402 140 140 
1195 011403 = 141 14 
1196 011404 142 14 
1197 011405 143 14 
1198 011406 = 144 144 
1199 011407 = 145 145 
1200 011410 = 146 146 
$201 011411 = 147 14 
1202 0114121 150 
1203 011413 = 151 13 
1204 011414 152 1 
1205 011415 = 153 15 
1206 011416 = 154 154 
1207 011417 155 155 
1208 011420 156 136 
1209 011423 = 157 15 
0 011422 160 160 
1 011423 = 161 1 
2 011424 162 1 
3 011425 163 1 
4 011426 = 164 1 
5 011427 = 165 . 165 


arte ee ate i en ee Sy re re ee et ae OO ee ee ee . —— oe 8 ee ree « 





L¢ 


SEQ 24 
| CZDJBGO DJ11 EXER & ONLNE MACY11 30A(1052) O7=JUN-82 16:36 PAGE 25 
C2DJBG.P11 —-O7=JUN-82 16:32 DATA TABLES 
1216 011430 166 166 
| 1217 017431 167 167 
| 1218 011432 =: 170 170 
| 1219 017433171 171 
| 1220 011434 = 172 172 
| 1221 011435173 173 
| 1222 011436 = -12% 174 
1223 011437175 175 
1224 011440 176 176 
1225 011441 =—-177 177 
1226 011442 = 200 200 
' 1227 011443 = 201 201 
1228 011444 202 202 
229 011445 203 20 
230 011446 204 204 
1231 011447 = 205 05 
232 011450 206 206 
1233 011451 ~=—s-.207 207 
234 011452 = 210 10 
1235 011453211 11 
236 011454 212 e12 
1237 011455 = -213 1 
238 011456 214 14 
1239 011457 215 15 
1240 011460 216 16 
1241 011461 = .217 1 
1242 011462 220 | 
1243 1 
44 011464 é 
4 
5 
xf 
5 
40 
rd 
a8 
44 
Fi 
a? 
: 
& 
55 





6 SR EES © ER oe SU 2 Re Ee he ee 


Mm 2 


SEQ 25 
| CZDJBGO DJ11 EXER & ONLNE MACY11 30A(1052) O7=JUN=82 16:36 PAGE 26 
CZDIJBG.P11 O7-JUN-B2 16:32 DATA TABLES 
| 1272 011520 ~—-256 BYTE 256 
1573 011551 «58? "BYTE 357 
| 1274 011532 ~—s-_ 580 "BYTE 360 
| 1375 011593 «= 561 "BYTE 361 
1276 011524 562 “BYTE — 26¢ 
1277 011595 - 568 "BYTE 36 
1278 011526 56% "BYTE 364 
1279 011527 «4565 "BYTE 365 
1280 011530 566 "BYTE 366 
1281 011531 567 "BYTE 567 
1282 011532. s- 570 "BYTE 370 
1283 011583 577 "BYTE 371 
1284 011534 572 "BYTE 372 
1285 011535 57% "BYTE 578 
1286 011536 57% "BYTE 37% 
1287 011537. «575 “BYTE 375 
1288 011540 576 "BYTE 376 
1289 011541 577 "BYTE 377 
1290 011542 $00 “BYTE 300 
1291 011548 «301 “BYTE 301 
1292 011544 302 “BYTE 30 
1293 011545 308 "BYTE 30 
: 1546 "BYTE 304 
1295 011547 305 "BYTE 305 
1296 011550 306 "BYTE 
1297 011551 “BYT ? 
1298 011552 310 T 


nd aed ed end aed aaa and aed 
NOAOUEWU—© 






WE WIR) we 





1319 011577 335 

1 011600 

1321 011601 337 

1322 011602 0 

1323 011603 341 

1324 011604 342 ‘ 
1325 011605 343 F 
326 011606 344 ‘ 
1327 011607 345 


PSOE, LL ER EH OES OE OE «ES EE ee Fee eee /_— ote ti 20 


| CZD0JBGO DJ11 EXER & ONLNE 


C2DJBG.P11 = O7=JUN=82 16:32 


1328 011610 346 
| 1329 011611 «347 
| 1330 011612 =. 350 
| 1331 0116130351 

1332 011614 352 

1333 011615 = -353 

1334 011616 354 

1335 011617 «= 355 

1336 011620 356 

1337 011621 «= -357 

1338 011622 360 

1339 011623 = 361 

1340 011624 362 

1341 011625 363 

1342 011626 364 

1343 011627 9-365 

1344 011630 366 

1345 011631 367 

1346 011632 370 

1347 0116330371 

1348011634 372 

1349 011635 = -373 

1350 011636 37% 

1351 011637 =—_-375 

1352 011640 376 

1353 011641 = 377 

11642 000 

1355 011643 001 

356 011644 002 

1357 011645 003 

011646 004 

1359 011647 005 

1360 011650 006 

1361 011651 007 

1362 011652 010 

1363 011653 = 011 

1364 011654 012 

1365 011655 = 013 

1366 011656 014 

1367 011657 015 

1368 011660 016 

1369 011661 017 


1372 011 022 
1373 011665 025 
11666 024 
1375 011667 025 
1376 011670 026 
11671 027 


383 011677 035 


N 2 


MACY11 30A(1052) O7=JUN-82 16:36 PAGE 27 
DATA TABLES 


WIN AIA AUIDIDIDIDINIDIDII a at 3d td ed td ot YUN EWI OD 
MEW SO NAMES WN 6 NOUS WhO 


WAAAY 
AOOMIMIUMUIMUIUISE & 
ONAUS WN ONO 


Wr 


WANN 


SEQ 26 


3 


SEQ 27 
| CZDJBGO DJ11 EXER & ONLNE MACY11 30A(1052) O7=JUN-82 16:36 PAGE 28 
C2DJBG.P11 = O7=JUN-82 16:32 DATA TABLES 
i 
| 1384 011700 036 BYTE 36 
| 1385 011701037 BYTE 37 
| 1387 011702 005015 177777 177777 PHRASE: .ASCII <15><12><377><377><377><377> 
1388 «011710 «044124 020105 052521 ASCIZ "'THE QUICK SILVER GRAY FOX JUMPED OVER 9,876,543,210.0 LAZY DOGS!" 
| 1389 011716 041511 020113 044523 
| 1390 011724 053114 051105 043440 
1391 011732 040522 020131 047506 
1392 011740 020130 052512 050115 
1393 011746 042105 047440 042526 
1394 011754 020122 026071 033470 
1395 011762 026066 032065 026063 
1396 011770 030462 027060 020060 
1397 011776 040514 054532 042040 
1398 012004 043517 020523 


1399 012012 ~EVEN 


ieee teat ee 


Sa a) <= ee Ot renee te Se ee ee oe 


ee 


SL ES + ee 


a eet seen: 


‘ia, hh EXER & ONLNE 


DJ38G.P 


012056 


012162 


000005 


001374 


O7-JUN-82 16:32 


001200 


002000 


000400 


012250 
001272 


000002 


001274 


050501 


001220 
000001 
001260 


MACY11 30A(1052) 
PROG2: 


177776 


001260 


¢ 3 


SEQ 28 
O7-JUN-82 16:36 PAGE 29 
ON=LINE EXERCISER (TRANSMIT LAST CHARACTER RECEIVED) 
SRERAL 2: ee foek Oe Th a ritn Eennn cane eta tt eneabeeneseeresorenes 
= PROGRAM é: ON-LINE MULTI-ECHO EXERCISER 
: TRANSMITS THE LAST CHARACTER RECEIVED ON ITS RESPECTIVE 
; LINE. _A CARRIAGE RETURN AND LINE FEED ARE INSERTED 
: EVERY 72 CHARACTERS. 
[ERAAERKAEARRAR ERR AER TEER ERR ERR RRR Reena eeeneees 
PROG2: RESET :CLEAR OUT THE WORLD 
MOV STACK, SP “RESET THE STACK POINTER 
BIS #340, avPsS erect tee TO LEVEL 7 
MOV #XMTTAB,RI FIRST TABLE POINTER 
MOV #2000, R2 “LENGTH OF TABLES (WORDS) rr ++F 
18: CLR 1)+ ;CLEAR THE TABLE 
DEC R2 
BNE 1$ 
MOV #400,R2 ;LENGTH OF MASK/COUNT TABLE 
2$: INC R1 :SKIP MASK 
CLRB (R1)+ ;CLEAR COUNT 
DEC R2 
BNE 2$ 


:ROUT INE mi a BEL TE ott DJ11°S AND THEIR ISR’S: 


sSET UP A 


:SET 


L 
DEVIC 


NTERRUPT VECT 
E ADDRESSES IN LINKER ROUTINES 
NG ENABLED 


:SET CSR°S EVERYTHI 


:SET TCR'S, 


P2INIT: CLR 
MOV 


1$: 


4$: 





ALL LINES ENABLED 


RO 
DEVADR, R1 
VECADR, R2 
#R2SRO_R3 sSET UP POINTER TO LINKERS 
3. (R2)+ SET UP RECEIVER INTERUPT VECTOR 
RCVLVL, (R2)+ 
(R3)+, (R3)* ADD 4 TO R3 
R1, (R3) ADDRESS OF CSR 
“a4, (R3)+ ADDRESS OF RBUF 
RS (R2)+  ;SET UP TRANSMITTER INTERUPT VECTOR 







pte (R3)+ 
(R3)+  sADDRESS OF CSR 
f56501, (R1)* SET UP CSR 
:BITO = RECEIVER ENABLE 
7BIT6 = RECEIVER INTERUPT ENABLE 
:BIT8 = TRANSMITTER SCAN ENABLE 
sBIT12 = STAT E 
AS :B1T14 = TRANSMITTER INTERUPT ENABLE 
+ 
0 UNIT # * 2 
SVSWOCRO) , (R1) SET TeR BITS FOR SELECTED LINES 
RO RESET UNIT COUNTER 
#1 MARK  :SET UP MARKE 
(R3)+, RG :SET UP OFFSET TO TABLES 
MARK. (R1) CHECK FOR LINE SELECTED 


C7DJ8G0 
_ C2DJBG.P 


ee neepentene enemtee ue a 


1503 


SSBEREaR 


VV 
ek 
=e 


one 


012230 
012234 
012236 


012246 


012250 
012254 
01 


11 EXER 


042737 


012700 


& ONLNE 
07=-JUN-82 16:32 


016647 
000045 


001260 
001264 


000140 


020000 


013042 


MACY11 30A(1052) 
PROG2: 


177776 


07-JUN-82 


D 3 
16:36 


PAGE 30 
ON-LINE EXERCISER (TRANSMIT LAST CHARACTER RECEIVED) 


#M>GP2, XMTTAB(4) ;SET UP XMTR TABLE 
#45, XMTCNT(4) ;SET UP COUNT 

3 INC OFFSET TO NEXT LINE 
CR1)+ 
RO, UNITS 
aavPs 


sADD 4 


sLOWER PROCESSOR PRIORITY 


g RERRARAARAAR AAA AAEREREERAEEREREEERREREREREEERREHEEEEEKERERE HEE RE hhh 


sPROG2 FOREGROUND PROGRAM TO READ/WRITE MEMORY 


+ alilalalaiahaheininiieisislebielsiehtabid did ditt thi LiLiLLLLLLILLLLLILL LLL TirirTTTT TTT 


FORP2: 
18: 


#20000,R0 :TOP OF 4K BANK OF MEMORY 
-(RO) sFAST READ/WRITE TO MEMORY 
1$ sRAPID REPEAT 

RO CHECK FOR LOC 0 

1$ BRANCH IF MORE MEMORY 
FORP2 ;LOOP FOR EVER! 


g CERAAKAAAARAAAAARARERARAEAAAAAERAERERRERRERERERERERERERERERERERERERKEREES 


sPROG2 LINKERS TO DJ11 INTERRUPT SERVICE ROUTINES 


g PRRAAAAAAAAARAEAAERAEREEEERAREEARERAAEREEREREREREREEEREEEEERERREEERE EES 


R2SRO: 
k2SRO: 
R2SR1: 
X2SR1: 
R2SR2: 
X2SR2: 
R2SR3: 
X2SR3: 
R2SR4: 
X2SR4: 
R2SR5: 
X2SR5: 
R2SR6: 
X2SR6: 
R2SR7: 





RO,.P2RISR 
<160012+<0#10>>,<0#40> 
RO, P2XISR 
<160020+<0+10>>.<0*40> 
<1 12+<1*10>>,<1*40> 
P2XISR 
<1 , 20+<12#10>>,<1*40> 
macrenisns oe 
RO.P2XISR 
<7 #<2210>>,<2240> 
RO.P2RISR 
<160012+<3210>>,<3240> 
< 0 +<32#10>>,<3240> 
<1600124<4#10>>, <4240> 
RO.P2XISR 
<1 4 +<€4210>>, <4240> 
<160012+<5210>>,<52%40> 
RO,P2XIS 
<160 2 +<5210>>, <5%40> 
<160 asabetOo>cgek0d 


x 
<16 ES 
RO,P2RISR 


LL EE ED = EE NE A RIS ON URINE A ee 7 hm Ae ke 


SEQ <9 


eed 


C0 re eee. eee se meen (LS - - N e 


1556 


Bag 
won 


SoRER SSS 


o 
N 


CZDJBGO 
CZDJ 


DJII E 
: 


P11 


012720 


160102 


010146 
010246 

12001 
005711 





XER & ONLNE 
O7=JUN-82 16:32 


000340 


000007 


004312 
001312 
004312 
005313 
001312 


MACY11 sasha 


000006 


X2SR7: 


R2SR10: JS 
X2SR10: JS 
R2SR11: J 
X2SR11: J 


R2SR12: JS 


K2SR12: J 
R2SR13: 
X2SR13: 
R2SR14: 
X2SR14: 
R2SR15: J 
X2SR15: 
R2SR16: 
X2SR16: 
R2SR17: 
X2SR17: 


5 eeteaee 
o 


’ 
; eeeenae 


P2XISR: 


18: 


~ WORD 
JSR 

- WORD 
JSR 
- WORD 
JSR 
J 


WORD 
JSR 





ane eee 


| 


O7-JUN=82 16:36 PAGE 31 
SR LINKERS 


Siemgi gael *10>>,<7s60> 
<160020+<7*10>>, <7*40> 
RO.P2RI 
<160012+<10*10>>,<10*40> 
RO. P2XISR 
<160020+<10#10>>,<10840> 
<1600124<11#10>>,<11440> 
<160020+<11*10>>,<11#40> 
<160012¢<12#10>>,<12#40> 
<160620+<12#10>>,<12*40> 
Pp RISR 
<1600124<13*10>>,<13840> 
<160020+<13*10>>,<13%40> 
SR 
<160012+<14#10>>,<14%40> 
RO,P2XISR 
<160020+<14#10>>,<14%40> 
<1 1 +<15#10>>,<152%40> 
<160020+<15210>>,<15*40> 
<1 Tevct6s10>>,<16s¢0> 
<1600200<16510>>,<16e60> 
<1 #<172#10>>,<17260> 


1 
RO.P2XISR 
eam 











chbiahhatdolstchstsininitindaivintcielieioteittnittptLitLrtLiLLLLLiLLL Lit TTT; tee 


TRANSMITTER INTERRUPT SERVICE ROUTINE 


ilabeinictdeintaiiniieieicd titiibbbbbitiitiLirtiiLiLLiLiLiririririirirriee 






R1,-(6) :PUSH R1 ON STACK 
Re pig 3PUSH R2 ON STALK 
: :CHECK FOR TRANS READY 
:GET LINE NO. 


7(R1) ,R2 
R 


(RO) ,R 
HMTCHT C2) 


@XMTTAB(2) ,6(R1) 
XMT CNT ( 
NTTAB(2) 


XMTTAB(2) 





TERS 
SAGE OR DATA 


E POINTER 






OTE Sameer te Oe we wm «lke ewes 


SEQ 30 


| oe + th EXER & ONLNE 


DJBG.P 


0 
1622 013110 


Ree 


~ 
oO 
— 
oO 


000754 


010146 


010203 
10 


O7-JUN-82 16:32 


070000 


005312 


MACY11 30A(1052) 


001312 
004312 


000004 
001312 
004312 


2$: 


5$: 


3$: 


4$: 


07-JUN-82 


F 3 


TRANSMITTER ISR 


~355 
cece 


16:36 PAGE 32 
1$ 
CNTTAB(2) i CHANGE F LAG 
3 ANCH IF WAS DATA 
WRCVTAB, “AMTTAB(2S” 7S rset T up - BOINTER TO RECEIVER TABLE 
A98. SATENT (2) 3 COUNT 72 CHARACTERS TO THE LINE 
AB(2) HECK FOR A BREAK 
rg. BRANCH IF REAL DATA 
(R0), R2 “RECOVER LINE NUMBER 
MARK :SET UP MARKER 
MARK :MOVE MARKER 
R2 :COUNT LINES 
5$ :BRANCH IF MORE 
MARK, 4(R1)  3CLEAR TCR BIT 


#RETURN XMTTAB(25 = ZTYPE CARRIAGE RETURN, LINE FEED 


+% XMTCNT(2) ;COUNTER OF 2 CHARACTERS 
(6)+,R2 sPOP STACK INTO R2 
(6)+,R1 sPOP STACK INTO R1 
(6)+,R0 POP STACK INTO RO 


TE leivbtietniainieietininitniiitinitiniinitpbitttiLiLiLiLLLiLLLLitiiiiTitriiTt eee 


RECEIVER INTERRUPT SERVICE ROUTINE 


[PeMeAeeeeenensaneeeneneeneesaneneeanntananenececanecaeecacacececececace 


P2RISR: 


18: 


2$: 





(RO) +,R1 
(R1) ,R2 


#70000,R2 
es 


Ro) RS 
MASK(3), oR2 








DATA 
NO CHAR PRESENT 
ERRORS 


Ow BYTE 
ALSO CLR CHAR PRESENT 
CTER LENGTH 


C 
R1=RBUF ADDRESS 


SEQ 31 


‘ ‘perro en eee ree rT 


lite ei ee a oe renter 
ene ee cece POS LS cE, SreremERe ane: ee LLL 
te eee —— 
-———- SS ee eee scan _ - - 


CZDJBGO DJ11 EXER & ONLNE 


| CZDJBG. P11 

1624 

1625 013112 
1626 013116 
1627 013120 
1628 013124 
1629 013126 
1630 013130 
1631 013134 
1632 013136 
1633 013142 
1634 013144 
1635 013146 
1636 013154 
1637 

1638 013156 
1639 013162 
1640 013166 
1641 013174 
1642 01320 
1643 013204 
1644 013204 
1645 01 
1646 013210 
1647 013212 
1648 013214 


012603 
12602 


0 
012601 
012600 


C7=JUN-82 16:32 


002312 
002312 


001260 
001260 


001260 


002312 
005313 

016442 
000002 


MACY11 30A(1052) 


000002 


3$: 


4$: 


G 3 


07-JUN~B2 16:36 PAGE 33 

RECEIVER 
:R2= CONTENTS OF RBUF (DATA) 

TSTB = RCVTAB(3) :CHECK FOR BREAK 
BNE s BRANCH i REAL DATA 
MOVB = R2 RCVTAB(3S~ :SAVE THE DATA 
SUB (RO). R3 :RECOVER LINE NUMBER 
CLR MARK :SET UP MARKER 
ROL MARK :UPDATE MARKER 
DEC R3 :COUNT LINES 
BPL 4$ :BRANCH IF MORE 
BIS MARK, 2(k1) [SET TCR BIT 
BR 1$ : CONTINUE 
MOVB =e R2 RCVTAB(3) ;SAVE THE DATA 
COMB ss CNT TAB(3) :SET MESSAGE FLAG 
MOV #RETURN,XMTTAB(3) TYPE CARRIAGE RETURN, LINE FEED 
MOVE 3s #2, XMTCNT(3) :MESSAGE LENGTH 
BR 1$ 
MOV (6)+,R3 :POP STACK INTO R3 
MOV (6)+,R2 :POP STACK INTO R2 
MOV (6)+.R1 zPOP STACK INTO R1 
MOV (6)+.RO :POP STACK INTO RO 


SEQ 32 


CZDJ8GO DJ11 EXER & ONLNE 
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SEQ 33 
O7=JUN-82 16:36 PAGE 34 
0G3: ECHO EXERCISER 
Be NNN NRMRERREREREERNSRERER REE ERE EERE REE E EERE E ERE 
:PROGRAM 3: ECHO EXERCISER 
aliiaiaiaiataiaieiaieiniediietidtiid ddd ddd thE EE ELELLELLLLLALLLL LLL Lire rTTe 
PROG3: RESET :CLEAR OUT THE WORLD 
MOV WSTACK, SP sRESET THE STACK POINTER 
BIS #340,  a#PS | :PROCESSOR TO LEVEL 7 
MOV #XMTTAB,R1 :FIRST TABLC POINTER 
MOV #2000, R2 ‘LENGTH OF TABLES (WORDS) 
1$: CLR (R1) 'CLEAR THE TABLE 
Be 
MOV #400,R2 ;LENGTH OF MASK/COUNT TABLE 
2$: INC 1 :SKIP MASK 
CLR (R1)+ :CLEAR COUNT 
BNE 2$ 
MOV #END, R5 ;SET UP BUFFER POINTER 52008 
sROUTINE TO INITIALIZE ALL DJ11"S AND THEIR ISR’S: 
:SET UP ALL INTERRUPT 
3SET UP DEVICE ADDRESSES Ik LINKER ROUTINES 
7SET CSR°S EVERYTHING ENABLED 
:SET TCR'S, ALL LINES ENABLED 
P3INIT: CLR RO 
MOV DEVADR, R1 
MOV VECADR, R2 
MOV #R3SRO_RS :SET UP POINTER TO LINKERS 
1$: MOV R3, (R2)+ SET UP RECEIVER INTERUPT VECTOR 
MOV RCVLVL, (R2)+ 
CMP (R3)+, (R3)+ <sADD 4 TO R3 
MOV 1, (R3) =: ADDRESS OF CSR 
ADD #2, (R3)+ ADDRESS OF RBUF 
MOV R3 (R2)+  ;SET UP TRANSMITTER INTERUPT VECTOR 
MOV XMTLVL, (R2)¢ 
cmp (RS), cR )+ 
MOV R1 (R3)+ 
MOV #50400, (R1)+ 
TST (R14 
ASL RO 
MOV SVSWOCRO) . (R1) 
ASR RO 
MOV #1 
MOV (R3)+, RG 
MOV Re.~ (6) 
MOV R3.~(6) : TACK 
2$: gIT MARK. (R1)  - SCHECK FOR LINE SELECTED 
MOV R5, XMTTAB(4)  :SET UP HEADER MESSAGE 
MOV R5, RCVTAB(4) SET UP RECEIVER TABLE 


CZDJBGO DJ11 EXER & ONLNE 
CZ2DJBG.P11 O7-JUN-82 16:32 
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177776 
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4$: 
5$: 


6$: 


I 


3 


SEQ 34 
O7=JUN-82 16:36 PAGE 35 
ECHO EXERCISER 
MOV BUFSIZ, R2 :SET UP COUNTER 
MOV #MSGP3. R3 :SET UP MESSAGE POINTER 
MOVB (R3)+, (R5)* [MOVE MESSAGE INTO BUFFER 
BEQ 5$ sBRANCH IF END OF MESSAGE 
DEC R2 :COUNT BUFFER SIZE 
BNE 3$ :BRANCH IF MORE 
BR 6$ :BRANCH IF DONE 
CLRB (R5)+ ;CLEAR REST OF BUFFER 
DEC R2 :COUNT BUFFER SIZE 
BNE 4$ :BRANCH IF MORE 
MOV R5 .MAXTAB(4) :SETUP BFR POINTER TABLE. prteF 
TST (R4)+ : INC OFFSET TO NEXT LINE 
ASL MARK 
BCC 2$ 
MOV (6)+,R3 :POP STACK INTO R3 
MOV (6)+,R2 :POP STACK INTO R2 
CNP (R14, (R1)* SADD 
CMP RO, UNITS 
BIC #140, @#PS § ;LOWER PROCESSOR PRIORITY 


g TERRA ARAARERAAARARAAAERERAEERERAEREEREEERREREREEREREREEREEREEREEREEES 


sPROGS FOREGROUND PROGRAM TO START RECEIVERS, THEN EXERCISE MEMORY. 


g CRARAAAAAAEAAAAARAEAAEEEEREREARARERERERERERERERERAEREREREREEEEEEREREREES 


FORPS: 
1$: 


2s: 


MOV 


#XMTTABR1 
#400 ,R2 
1$ 
#2,R1 
R2 
1$ 

ITS, RO 
DEVADR, R1 
#101, (RI 
a R1 
#20000 ,RO 
=(RO) 
1$ 
RO 
1$ 
MEMXS 


sCHECK FOR XMTR TABLE CLR 
; H IF NOT 


:BRANC 

:GO0 TO NEXT LINE ENTRY 

; COUNT .LINES 

SBRANCH IF MORE LINES 

3SET UP UNIT COUNTER 

;AND DEVICE ADDRESS POINTER 
gg 8 ENABLES OF CSR 


7 SET 
T 


2 UPD 
sCOUNT DJ11°S 
sTOP OF 4K BANK OF MEMORY 


sFAST READ/WRITE TO MEMORY 
sRAPID REPEAT 


0 
BRANCH IF MORE MEMORY 
LOOP FOR EVER! 


SE hebitdelelehdnildtttti dit bb hhh ht tit errittLiLiLiLiLiLiLiLiLiLiLLiLiTiT TTT TTT 


sPROGS LINKERS TO DJ11 INTERRUPT SERVICE ROUTINES 


LP ibtebi ddd iti bbb bth tha abhi ti titi itil StL LiLT iti lititiiTiTiT TTT TTT TT 


R3SRO: 
X3SRO: 





JSR 


« WORD 
JSR 


RO,P 


RO.P3RISR 
<160010<0*10>>, <O%40> 
XISR 


SP tee a Sree rer OE x 8 ae hee 6 ee 


J 3 























SEQ 35 
Sa oy DJ11 EXER & ONLNE MACY11 30A(1052) O7=JUN-82 16:36 PAGE 36 
C2DJBG.P11  07=JUN-82 16:32 ISR LINKERS 
1761 013604 1600 0 000000 «WORD  <160020+<0*10>>,<0#40> 
1762 013610 004037 014320 R3SR1: JSR RO. P3RISR 
1763 013614 160022 000040 . WORD <1600124<1#10>>, <1*40> 
1764 013620 004037 014170 X3SR1: JSR RO.P3X 
1765 013624 160030 000040 WORD <1600202¢1#10>>, <1*40> 
1766 013630 004037 014320 R3SR2: JS RISR 
176? «013634 000100 <1600124<2*10>>,<2%40> 
1768 013640 014170 X3SR2: P3XISR 
| 1769 013644 000100 <160020+<2*10>>,<2*40> 
| 1770 013650 014320 R3SR3: RO.P3RISR 
| 1771 «013654 000140 <1600124<3*10>>, <3*40> 
| 1772 013660 014170 X3SR3: RO.P3XISR 
1773 013664 000140 <160020+<3#10>>, <3*40> 
1774 013670 014320 R3SR4: RO.P 
1775 013674 160052 200 WORD <16001 +<4210>>, <4 "40> 
1776 013762 004037 014170 X3SR4: JSR XISR 
1777 013704 160060 000200 WORD <160020+<6*10>>, <4%40> 
1778 013710 004037 014320 R3SR5: JSR RO 
1779 013714 160062 000240 . WORD <16001 +<5210>>,<5#40> 
1780 013720 004037 014170 X3SR5: JSR RO.P KISR 
1781 013724 160070 000240 é <1600 +<5#10>>, <5240> 
1782 013730 004037 074320 R3SR6: JSR 
1783 013734 160072 000300 . WORD <16001¢¥< +<6*10>>,<6%40> 
| 1784 013740 004037 014170 X3SR6: JSR 
1785 013744 160100 WORD <1 - <6240> 
1786 013750 004037 014320 R3SR7: JSR 
1787 013754 160102 000340 ~WORD  <1600124<7210>>,<7#40> 
1788 013760 004037 014170 X3SR7: JSR 
1789 013764 160110 000340 WORD 20+<7*10>>,<7240> 
1790 013770 004937 014320 R3SR10: JER } 
1791 013774 160112 . WORD 12¢<10#10>>,<10*40> 
1792 014000 004037 014170 X3SR10: JSR 
1793 014004 160120 000400 . WORD 10*10>>,<10*40> 
179% 004037 014320 R3SR11: JSR 
1795 014014 a fe 2 000440 - WORD 0012¢<11*10>>,<11240> 
179% 004037 014170 X3SR11: JSR p 
1797 014024 160130 000440 WORD <7 <11#10>>,<112%40> 
1798 014030 004037 014320 R3SR12: JSR RO.P Isr 
1799 014034 160132 5 . WORD <16001 #<12®10>>,<12860> 
1800 014040 004037 014170 X3SR12: JSR SR 
1801 01 166140 -WORD <1 12#10>>,<12%40> 
1802 014050 004037 014320 R3SR13: JSR RO 38 
1803 074054 160142 0 - WORD 12¢<132#10>>,<13*40> 
1804 014060 004037 014170 X3SR13: JSR : 
| 1805 014064 160156 000540 WORD #<132#10>>,<13240> 
1806 014070 004037 014320 R3SR14: JSR , 1s 
1807 014074 160152 000600 . WORD seh $€14810>>,<14%40> 
1808 014100 004037 014170 X3SR14: JSR PaXISR 
1809 014104 160160 000600 WORD #<14#10>>,<146240> 
1810 014110 004037 014320 R3SR15: JSR Pp RISR 
1811 014114 vd 53 0 eWORD <1600124<15*10>>,<15240> 
1812 120 074170 X3SR15: JSR x 
1813 014124 160170 0 sWORD  <160020+<15210>>,<15%40> 
| 1814 014130 006037 014320 R3SR16: JSR p 
1815 014134 160172 700 “WORD  <16001 *<16#10>>, <16%40> 
1816 014140 004037 014170 X3SR16: JSR RO,P3XISR 





K 3 


SEQ 36 
CZ2DJBGO DJ11 EXER & ONLNE MACY11 30A(1052) O7=JUN-82 16:36 PAGE 37 
C2DJBG.P11  07=JUN-82 16:32 ISR LINKERS 
1817 014144 160200 000700 sWORD  <160020+<16*10>>,<16#40> 
1818 014150 004037 014320 R3SR17: JSR P3RISR 
1819 014154 160202 000740 WORD  <1600124<17#10>>,<17%40> 
1820 014160 004037 014170 X3SR17: JSR XIS 
1821 014164 160210 000740 «WORD  <160020+<17#10>>,<17#40> 
1823 Bee NER SRRERARRRRAEEEERERARERERAREEEARAEER REE REE ERR ERE REE 
1824 :PROG3 TRANSMITTER INTERRUPT SERVICE ROUTINE 
| ies? allaiababaiaiaiaiheiiabeinbeddiniidd Adhd dtd ttt ELLELELLLELLELLL LLL LiL irTT TTT 
| 4827 014170 P3XISR: 
| 1828 014170 010146 MOV R1,=(6) :PUSH R1 ON STACK 
| 1829 014172 010246 MOV R2,-(6) :PUSH R2 ON STACK 
1830 014174 012001 MOV (RO)+,R1 
| 1837 014176 005711 1$: TST (R1) :CHECK FOR TRANS READY 
| 1832 014200 100043 BPL 4$ 
1833 014202 116102 000007 MOVB 7(R1).R2 :GET LINE NO. 
1834 014206 006302 ASL R2 
1835 014210 06100 ADD (RO) .R2 
014212 117261 001312 000006 MOVB senrragiss °°"? SEND A CHARACTER 
| 1837 014220 105072 001312 CLRB = @XMTT :CLR TABLE AFTER USE 
1 014224 005262 001312 INC AB(g) ATE TABLE POINTER 
1839 014230 003312 001312 CMP WAKTADS ) XMTTAB(2) :CHECK FOR END OF BUFFER rte 
1840 014236 001003 BNE F NOT 
1841 014240 163762 001262 001312 SUB BUF SIZ. MATTAB(2) T BUFFER POINTER reer 
1842 014246 105772 001312 5$: TSTB @XMTTAE(2) cx NEXT C CHARAC 
1843 014252 001351 BNE 1 < BRANCH F MORE DATA 
1844 014254 010346 2$: SP) 
1845 014256 00 001312 CLR NATTAB(2) (2) 3CLEAR TABLE POINTER 
1846 014262 161002 SUB (RO) ,R2 
1847 014264 006202 ASR R 
i 014 CLR R 
1849 014270 000261 SEC 
1850 014272 006103 3$: ROL R 
1851 014274 005302 DEC 
1852 014276 100375 BPL 
1853 014300 040361 000004 BIC R3.4(R1) 3CLEAR TCR BIT FOR LINE 
854 014304 012603 MOV (SP)+,R3 :RESTORE R3 
1855 014306 000733 BR 1$ 
1856 014310 4$: 
1857 014310 012602 MOV (6)+, R2 :POP STACK INTO R2 
1858 014312 012601 MOV (6)+.R :POP STACK INTO R1 
1859 014314 012600 MOV (6)+ “RO sPOP STACK INTO RO 
1860 014316 000002 RTI 
1862 th ddihdilinihdnitiidetdtbtbithbi ithe LitiiititiLtititiiLtiiririciii iii 
1863 ;PROG3 RECEIVER INTERRUPT SERVICE ROUTINE 
1864 Slebeleleiiieininiininitibiibihdbbhi bet biti riitiiLiiilitiLiLiliiiiitiitii TTT 
1865 
1866 014320 P3RISR: 
1867 014320 010146 MOV R1,-(6) :PUSH R1 ON STACK 
1868 014322 010246 MOV Re»- (6) [PUSH R2 ON STACK 
1869 014324 010346 MOV R3,~(6) :PUSH R S 
1870 014326 010446 MOV R4,-(6) sPUSH R4 ON STACK 
1871 014330 012001 MOV (RO)+,R1 [GET RBUF 
1872 014332 011102 1$: MOV (R1) ,R2 SREAD THE DAT 
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SEQ 37 
| copunee DJ11 EXER & ONLNE MACY11 30A(1052) O7=JUN-82 16:36 PAGE 38 
| CZDJBG.P11 0O7-JUN-82 16:32 RECEIVER ISR 
| or eam seat BPL sé :BRANCH IF NO CHAR PRESENT 
| 1874 014336 032702 070000 BIT #70000,R2 CHECK FOR ERRORS 
1875 014342 00140 BEQ 2$ ‘BRANCH IF 0 
1876 014344 104002 HLT +2 SRECEIVER ERROR 
1877 ;R1I=RBUF ADDRE 
1878 *R2=CONTENTS OF RBUF 
1879 [BIT12=PARITY ERROR 
1880 :BIT13=FRAMING ERROR 
1881 “BITIGSUART OVE 
1882 014346 771 BR 1$ :SKIP BAD DATA 
1883 014350 010204 2$: MOV R2, R4 [DUP THE RBUF 
1884 014352 195004 CLRB RG “CLEAR THE DATA 
1885 014354 304 SWAB RG sLINE # TO LOW BYTE 
1886 014356 106304 ASLB 4 sLINE # * 2, ALSO CLR CHAR PRESENT 
1887 014360 061004 ADD (RO) .R4 ZADD OFFSET 
1888 014362 136402 005312 BITB MASK(4).R2 :CHECK CHARACTER LENGTH 
1889 014366 001401 BEQ 3$ CH IF Ok 
1890 014370 104002 HLT+#2 : CHARACTER LENGTH ERROR 
1891 :RI=RBUF ADDR 
1892 [R2=CONTENTS OF RBUF (DA 
1893 014372 005764 002312 3$: TST RCVTAB(4) ; CHECK kK FOR UNSELECTED LINE 
1894 014376 001002 BNE 4$ H 
1895 014400 104002 HLT+2 ERECEI VED. DATA ON UNSELECTED LINE 
1897 3R2 = CONTENTS OF RBUF 
1898 014402 753 1$ GNORE THE DATA 
1899 014404 105774 002312 4$: TSTB = @RCVTAB(4) “CHECK FOR DATA BUFFER FULL 
1900 014410 001403 Q 5$ sBRANCH IF OK 
1901 014412 104002 HLT+2 3s + ahh ray DATA BUFFER OVERFLOW 
1902 ZPOSSIBLE TRANSMITTER PROBLEM 
1903 :R1 = RBUF _ADDRE 
1904 3R2 = CONTENTS OF RBUF 
1905 :NOTE ERROR WAS DUE TO OVERLOAD, INCREASING THE CONTENTS 
1906 : THE EM. 
1907 $ PLE OF 
1908 : THE BUFFERS TO OVERFLOW 4x. 
1909 014414 000137 013216 :RESTART ON THIS TYPE ERROR 
1911 014420 005764 001312 S$: XMTTAB(4) :CHECK FOR TRANSMITTER ACTIVE 
1912 014424 001414 “BRANCH ir INACTIVE 
1913 014426 110274 002312 Re. @RCVTAB(4) PUT THE DATA IN THE BUFFER 
1914 014432 005264 002312 RCVTAB(4) POINTER TO NEXT SPACE 
1915 0144.36 026464 003312 002312 RANTABCG) RCVTABLGD 2€ SCHECK FOR END OF BUFFER reer 
1917 01 163764 001262 002312 BUFSIZ,RCVTAB(4) :RESET BUFFER POINTER titer 
1918 014454 726 1$ 
1919 014456 016464 003312 002312 6s: BAXTAB(4) »RCVTAB(4) sRESET TABLE POINTER rreeF 
1920 014464 163764 001262 002312 BUF SIZ RCVTAB(4) sRESET BUFFER rreeF 
1921 014472 016464 002312 001312 nay ae oe 
1922 014500 110274 002312 
1923 014504 005264 002312 RCVTAB :UPDATE POINTER TO NEXT SPACE 
1924 014510 161004 ie 
1925 014512 006204 Re 
1926 014514 005003 R3 
1927 014516 000261 
1928 014520 006103 7$: R3 
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000002 
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MACY11 30A(1052) 


001206 
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DONE : 


4$: 


3$: 


M 3 


O7-JUN-82 16:36 PAGE 39 
RECEIVER ISR 
DEC R4 
BPL 
215 R>,2(R1) ;SET TCR BIT FOR LINE 
MOV (6)+,R4 ;POP STACK INTO R4 
MOV (6)+,R3 ;POP STACK INTO R2 
MOV (6)+,R2 :POP STACK INTO R2 
MOV (6)+,R1 :POP STACK INTO R1 
MOV (6)+,R0 ;POP STACK INTO RO 
RTI 
JSR PC, KBDINT 
ADD #1,PCNT+2 ;ADD 1 TO THE PASS COUNT 
ADC PCNT ;MAKE IT DOUBLE PREC. 
TYPE »MEOP 47 OF PASS INDICATOR 
BIT #SW10,aSWR RING THE BELL? 
BNE 4$ : 
TYPE -BELL RING THE BELL 
TYPE ° > TYPE A FILLER FOR 11/05 
: gee RO GET MONITOR ADDRESS 
RESET RESET AND 
SENDAD =. 
JSR 7,40) :G0 TO MONITOR 
NOP 3SAVE ROOM 
NOP FOR 
NOP 3ACTI1 
JMP RESTAR S RETURN 


SEQ 38 
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164340 


164320 


014766 
014764 


015012 
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: ADDRESS OF THE ‘‘HLT''. IT ALSO COUN 


07-JUN-82 


N 3 


BELL AND SCOPE ROUTINE 


SHLT 


16:36 PAGE 40 


ERROR TYPEOUT HANDLER 
: THIS ROUTINE PRINTS OUT ERROR ny te Bgl. WITH THE 


RROR, 
AN OPTIONAL ARGUEMENT 


R AND TS. 
SCHLT#3) WILL BE PLACED IN MULT CTS: FOR ADITIONAL TYPEOUTS. 


D 
ALT*’ INHIBIT 
EMTS: JSR PC, KBDINT 
BIT #SW10,aSWR 
BEQ 1$ 
TYPE P 
1$: INC ERRORS 
BIT #SW13,aSWR 
BNE 2$ 
TYPE aet2 
MOV (6) ,HLTADR 
SUB #2,HLTADR 
MOVB @HLTADR,HLTCTS$ 
MOV HLTADR, TTY 
JSR e 
TYPE a 
JSR PC ERRORS 
2$: TST aSwR 
BPL +4 
HALT 
JSR PC ,.KBDINT 
RTI 
HLTCT$: 0 
HLTADR: 0 
ERRORS: BIT #7720 _ 3¢ 
1$: DF cB HLTCT$ 
ADD #100,2$ 
2$: MCV Z0,TTY 
JSR 27, PRINTR 
TYPE, SPACE 
8R 1$ 
3$: RTS PC 


rr es OLE LLL ELE AE LS CT I a a tte ae a 


;BELL ON ERROR? 

0 - SKIP 
SRING BELL 

:COUNT THE NUMBER OF ERRORS 
;SKIP TYPEOUT IF SET 

YPEOUT 
5><12> 

T ADDRESS OF INSTRUCTION ON STACK 
“FUD ADDRESS 

:GET HLT ARGUEMENT 
sTYPE HLTADR IN OCTAL 
re ZERO'S 
GO TO USER ERROR ROUTINE 

T ON ERROR 


HAL 
SKIP IF amar 
;HALT ON ERROR 
RETURN 


sHLT ARGUEMENT 
sLAST HLT INSTRUCTION EXECUTED 


TYPE REGISTER X IN OCTAL 


SEQ 


59 


SE oe 


ELE Eee 
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000901 
015176 
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015324 
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177770 


016214 


177776 
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015324 
015344 


177560 
177562 
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900177 
0u0025 
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MACY11 30A(1052) 


015322 READIN: MOV 
JSR 


016214 


015174 


177776 


B 4 


O7-JUN-82 16:36 PAGE 41 
OCTAL NUMBER INPUT ROUTINE 


s SUBROUTINE TO SAVE INPUT AS OCTAL NUMBER 


1$: 


2$: 
3$: 


PSTEMP: 


READ$: 
1$: 
2$: 


4$: 


3$: 


#1, INHRE 
PC, READS ;:GO READ TTY UNTIL CR 
INHRE 
R1,-(6) :PUSH R1 ON STACK 
R2,-(6) :PUSH R2 ON STACK 
R3,-(6) :PUSH R3 ON STACK 
(R5)+, RI 

20,CNT 

#INPUT,R2 
#120, (R2) :CHECK FOR ‘"'P’’ 

(Rays R3 

R3,415 

3$ :BRANCH WHEN DONE 
#60,R3 

#177770,R3 

3$ :BRANCH IF BAD DATA 
(R1) 

2$ 

(R1) 

2$ 

(R1) 

2$ 

R3.(R1) 

CNT 

1$ 

:MAKE SURE Z-BIT IS CLR 
PSTEMP :SAVE CONDITION CODES 

*e): -R3 :POP STACK INTO R3 
(6)+,R2 :POP STACK INTO R2 
(6)+,R7 POP STACK INTO R1 
PSTEMP, a#PS [RESTORE CONDITION CODES 


: TEMPORARY STORAGE FOR PS 


R3,~(6) ZSAVE R3 
#INPUT ,R3 *GET ADDRESS 
#INPUT+20,R3 BUFFER FULL? 
a4177560 “WAIT FOR 
= ZA CHARACTER 
94177562. .(3)  :GET CHARACTER 
:GET RID OF JUNK 
#177. (3) ‘IS IT A RUBOUT 
:SKIP IF NOT 
#25, (3) 
3$ 
+2 yeASCIZ “'2""<15><12>"= "" 
is : ZAP THE BUFFER AND LOOP 
(3), TYPE :SET UP FOR TYPING 


SL a Ae maT YA iar IRI ret Sree erence, pei. Aten sce pare Ne ee ~ =< 


SEQ 40 


Fe gl itd EXER & ONLNE 


BG.P 


™m 
o 
oO 


or 


Oooceoocc ooo 
Ped ed ed ed ed od ed od 


oo oO 
—=d od 


01 
015532 


000004 


000207 


000000 
000020 


012737 
0004 
112737 
0004 


O7=JUN-82 16:32 


016132 
600015 


015322 


177777 
060012 


170101 
000001 


015532 
177772 


015534 


000100 


015532 
015532 
000060 
015533 
015534 
000060 
015534 


MACY11 weet 


015532 
015532 


015533 


015532 


C 4 


07-JUN-82 
Y INPUT ROUTINE 
TYPE es | 
CMPB his cas 
BNE 2 
TST INHRE 
BEQ 5$ 
BR 6$ 
5$: CLRB -1(3) 
6$: TYPE ate 
MOV (6)+,R3 
RTS PC 
INHRE : 


0 
INPUT: .BLKW 


sTHIS ROUTINE IS US 

TALL 6 CHARACTERS, 
:THE 16 BITS. IT IS CALLED VIA 
BITYPS: 
PRINTR: tn #1 
PRINTS: CLR 
MOVB 


-PTIT: 


SOCTAL 


MOV of 





16:26 PAGE 42 


sECHO iT 
CHECK FOR RETURN 
sLOOP IF NOT RETURN 


sZAP_ RETURN (THE 15) 
TYPE A LINE FEED 
a a E 


Y_INPUT AREA 


OCTAL ryPEOUT ROUTINE 


ED TO TYPE AN OCTAL NUMBER ON THE TTY. IT WILL TYPE 
SUPPRESS ik te eae a TYPE AN 18 BIT ADDRESS, OR TYPE 


SDUMP, DUMP18, OR BITYPE MACRO'S. 


:SET te FLAG ANS af: CHARACTER COUNT 
;NOW TYPE IT IN BIT FORM 
+48 ZERO FILL SWITCH 


> SKIP 
;SUPRESS LEADING ZERO'S 
SET COUNT 
SAVE R4 
;SET POINTER TO FIRST ASCII CHAR. 
CLEAR FIRST BYTE 
sROTATE FIRST BIT 
CLEAR BYTE OF CHARACTER 
TYPING MODE? 
YES ~- SKIP 2 ROTATES 
sROTATE BIT INTO C 
PACK IT 
ROTATE BIT INTO C 
EROTATE BIT INTO C 
31S IT ZERO? 
sSKIP_ INC 
SET FILL SWITCH 
> CHECK naar SWITCH 
BITSET 


; SKIP 
MAKE INTO ASCII CHAR 
> INC COUNT 








“LOAD 1 ZERO 
[NULL TERMINATOR 

*RESTORE R4 

sRETURN 

[COUNT, SWITCH, AND OUTPUT BUFFER 


SEQ 41 


! 
i 
' 


LE ee 


CZDJ8G0 
C2 


J 
DJB 


MMM NPN NNN NMO MOND 

Oe ed ed ed ed ced eed wad ed ed 

MINNA 
NOVEFWN—OOC@ONOULWRS a) 


MRNININM 
bed ed ed aed ed 
™m 


MMR RIRIRD 
ed ed ced ed nd ed 
WAWIWinhonony 
WRI =O .Oo8 


2134 


P1} 


015710 
015712 


015716 


DJ11 EXER & ONLNE 
1 O7-JUN-82 16:32 


015704 
000340 


015556 
34 


000340 
015670 
007316 


000026 


D 4 


O7-JUN-82 16:36 PAGE 43 


MACY11 30A(1052) 
POWER DOWN AND UP ROUTINES 


000126 PDOWNS: MOV MILLUP,@PUVEC$S ;SET FOR FAST UP 
000122 MOV #340,QPUVEC$+2 ;:PRIO:7 
MOV RO,-(6) ;PUSH RO OW STACK 
MOV R1,-(6) 3;PUSH R1 ON ®TACK 
MOV R2,-(6) ;PUSH R2 ON STACK 
MOV R3,-(6) ;PUSH R3 ON STACK 
MOV R4,-(6) sPUSH R4 ON STACK 
MOV R5,-(6) ;PUSH RS ON STACK 
MOV SP, .SAVR6 SSAVE SP 
000072 MOV #PUPS ,APUVECS s;SET UP VECTOR 
HALT s;WAIT FOR PF 
PUPS: MOV - SAVR6, SP sGET SP 
CLR R1 ;WAIT LOOP FOR THE TTY 
1$: INC R1 ;WAIT FOR THE INC 
BNE 1$ ;0F WORD 
MOV (6)+,R5 ;POP STACK INTO RS 
MOV (6)+,R4 sPOP STACK INTO R4 
MOV (6)+,R3 :POP STACK INTO R3 
MOV (6)+,R2 sPOP STACK INTO R2 
MOV (6)+,R1 sPOP STACK INTO R1 
MOV (6)+,R0 ;POP STACK INTO RO 
000024 MOV #PD av24 ;SET UP THE POWER DOWN VECTOR 
000026 MOV #340, 0826 :PRIO:7 
TYPE a 3: ASCIZ <15><12>’ POWER’’ 
JMP RESTAR 3; JMP TO USER ADDRESS 
ILLUP: HALT ;THE POWER UP SEQUENCE WAS STARTED 
BR "2 ; BEFORE THE POWER DOWN WAS COMPLETE 
-SAVR6: 0 sPUT THE SP HERE 
PUVECS: 24.26 sPOWER UP VECTOR 
YESRT: RTI sRETURN FROM TRACE TRAP 


SEQ 42 


oe mee a ee eee estayshesnieere eiesnsessssnensistnenenenene LS TE ener nrtenmneneeen nets cette mere: 
-_ 
eerste ssa nemene eee 


Fe gl ht EXER & ONLNE 


CZD0JBG.P 


MNroMm 


co ce ee ed eed eed 
al 


2166 


MMMM NMNN 


015729 


022716 


O7-JUN-82 16:32 


001000 


020124 


015404 


016004 
047522 


015404 


000002 
177400 


016132 
016132 


MACY11 


020115 





E 4 











30A(1052) O7=JUN-82 16:36 PAGE 44 
10T HANDLER 
Rlalalataleielialetataiaialeddetehaiaiabatetdiededttdtt htt LELLLLELELLLL LLL LLL eTTTTTTTT 
;10T HANDLER = REENTERENT ROUTINE TO INDICATE A FALSE 
INTERRUPT OR TRAP, OR TO TYPE A MESSAGE 
[URRRRARARRRREREN EERE RETR ERERRERSRRENERENE REE RR RRA RREREAEREEKeeneneens 
IOTRAP: CMP #1000, (SP) = CHECK RETURN ADDRESS 
BLT 10T$ ‘BRANCH IF TYPE COMMAND 
SUB B4 (SP) GET VECTOR ADDRESS 
TYPE, .¢ VPE MESSAGE 
ASCI2 <1§><12>" UNEXPECTED INTERUPT TO °’ 
MOV (SP)+, TTY sTYPE (SP)+ IN OCTAL 
JSR PC PRINTS ZAND SUPRESS LEADING ZERO’S 
TST (SP) + ° ACK 
TYPE, +2 ; TYPE MESSAGE 
-ASCIZ " FROM" 
EVEN 
V \SP),TTY ZTYPE (SP) IN OCTAL 
JSR PC, ORINTS SAND SUPRESS LEADING ZERO’S 
HALT :FATAL ERROR 
RTI SCONTINUE IF DESIRED 
; STYPE MESSAGE TYPEOQUT ROUTINE 
THIS ROUTINE IS USE TO TYPE ASCII MESSAGES ON THE TTY. THE 
SCALE CAN BE IN ONE OF 3 FORMS; 1 T ADR" - THE 





ATION “‘ADR: rs oe “"TyPE “cur” - TYPES 
Danial cetdocton ter eghere > - TYPES 


















“~ 
— Xe 





SR 





~~ e 





sug ed 





<< 
@@e Ge Ge Ge Se Be 


2 so 

TYPE THE coon ER 
INTER READ 
iL it] 


Sete Ge Oe Ge Ge Ge Oe Oe Oe Oe Oe @ 


SEQ 43 


CZDJBGO DJ11 EXER & ONLNE 
CZ0J8G.P11 


016132 


ooo 
td od od 
AAO 
ed ed ed ed 
Vis Pw 
oOfns 


od me 
~w~ unm s 


oOOooCcooo 
oO 
ss 


oO 
— 


016304 
016310 
016314 


016316 


000000 


022737 
001023 
000 


013705 
004737 


020040 
000040 
005015 
000040 


013746 


O7-JUN~82 16:32 


042516 
053523 


000006 


000004 
016266 
177777 


000176 
000174 


MACY1? SORCIOSS) 


001210 


016214 
162776 


036527 
036522 


TYPE: 
CNTLU: 


1$: 
CNT: 
NEWIS: 
SWREQ: 


SUSWRR: 


¥ Se 


KBDINT: 


F 4 


pO7~JUN=82 16:36 PAGE 45 
YPE ROUTINE 

0 s CHARACTER TYPE LOCATION 

CMP #SWREG, SWR 

BNE 1$ 

TYPE  ,SWREQ 

MOV SWREG, TTY :TYPE SWREG IN OCTAL 

JSR PC .PRINTR : TYPE LEADING ZERC'S 

TYPE  ,NEWIS 

JSR R5, READIN 

.WORD TMP 

BNE CNTLU 

CMP #20, CNT 

BEQ 

MOV TMP1, @SWR 

RTS PC 

0 

eASCIZ "* NEW= *° 

eASCIZ <15><12>°’SwR= °° 


oon »@ a] 
Sone = 3e8839°398S2 








232 
— 
3s 









o z« 
— 
nm 


> sASCIZ <15><12>"WO DATA RECEIVED" 


6,~(SP) 
4,~(SP) 
#is.4 
#-1,aSuR 


(SP)+,(SP)+¢ 
#SWRE 





PC,CNTLU 
PC 


cotet 


eASCIZ <15><12>' EOP’ 


«> 
as 


aidion tei LLL SE ee Seer 


— CZDJBG0 
CZDJBG.P 


SlSOSOCSCOCCOOCOOOODO =o 
SSSCRSRRTRTETE o 
ETI SSAT Sae at 

_ 
NEOUS AOWOUR SS. 


016530 
016536 


62 
016770 
016776 


NE 


000 


051503 


000000 
000001 


11 EXER & ONLNE 
O7-JUN-82 16:32 


000040 


04044 
051523 
047516 


042040 
035123 


050012 
046501 


MACY11 eahimeadl™ 


041505 
042516 


000377 
055103 


051522 
030461 
042522 
00 


MNUM : 
MSGSEL: 


RETURN: 


MSGADR: 
MSGVEC: 
MSGNUM: 


MSGPRG: 


MSGO1: 


MSGP2: 


MSGP3: 


MSGDAS: 
MALARM: 


EVEN 
END: 
END 


eASCIZ ' 


0?~JUN=82 
PE ROU 


G 4 


16:36 PAGE 46 
TINE 


“' 


eASCIZ ** SELECT LINE = '' 


eASCIZ 


eASCIZ 


eASCIZ 


eASCIZ 


eASCIZ 


eASCIZ 


eASCIZ 


<15><12><377><377><377> 


<15><12><377>'"'CZDJB=G-0 DJ11 EXER & ONLNE’’ 


<15><12>°FIRST DJ11 ADDRESS: °’ 
<15><12>"VECTOR ADDRESS: °° 
<15><12>"NO. OF Dy11"S: °° 


<15><12>"'PROGRAM #: °* 
<15><12>’NO DJ11°S!"* 


<15><i2>"PROG2: CONTINUOUS ECHO EXERCISER"<15><12> 


<15><12>""eECHO TEST*’"*<15><12> 


eASCIZ 
"Astle <15><12>""SILO ALARM LEVEL FOR CSR‘<15><12> 


0 


LOLI LLL LEE LLL LLL LE LE EOL EEE TL OY tlh Ck tt iy a mai EE aT A ee ee “2 eee ete w 2 Ne 8 ty 


SEQ 45 


CZDJBGO DJ11 EXER & ONLNE 
O7-JUN-82 16:32 


CZ20J8G.P11 
/ADRNIT 011236 


ALL 007276 
ALMCK 010032 
_ALMFLG 001300 
BEGIN 006312 
'BELL = 000007 
"BINARY. 011302 
BITYPS 015364 
| BITO = 000001 
'BIT1 = 2 
'BIT10 = 002000 
/BIT11 = 004000 
| BIT12 = 010000 
' BIT13 = 020000 
BIT14 = 040000 
BIT15 = 100000 
BIT2 = 000004 
BIT3 = 000010 
BIT4 = 000020 
BITS = 000040 
BIT6 = 000100 
BIT? = 000200 
BIT8 = 0004 
BITS = 001000 
BUFSIZ 001262 
CNT 016214 
CNTLU 016134 
CNINIT 011240 
CNTTAB= 005313 
COUNT 001306 
DEVADR 0012 
DISPLA 001212 
DISPRE 000174 
DJMAP 0064 
DONE 014550 
EMTS 14636 
END 016776 
ERRORS 001202 
ERRORS 014770 
FORGND 007722 
FORP2 012230 
FORP3 013500 
GETLEN 006762 
GETVEC 006542 
HLT = 104 
HLT 014766 
HLTCTS 014764 
ICNT 001200 
ILLUP 015704 
INHRE 015322 
INPUT 015324 
IOTRAP 015720 
IOT$ 016026 
ISRFLG 001276 
016316 


| KEVEL?= 000340 
| 
| 


Remnesseestinsiting 





MACY11 30A(1052) 


11144 
7494 
907 
822 

1971 


928 


19404 


1124 
1972* 


07-JUN-82 


853* 


929 


1920 
839 


910 
677 


1128 


H 4 


16:36 PAGE 48 
CROSS REFERENCE TABLE == USER SYMBOLS 


917* 918* 923s 925« 926* 


912 916 919 922 938 
696 800 1429 1676 1739 


1667 23064 


1622 1876 1890 1895 1901 


927* 
948 


11158 


CZDJBGO DJ11 EXER & ONINE 


CZ2DJ8G.P11 
MALARM 016741 
MARK 001260 
| 
| MASK 005312 
| MAXTAB 003312 
MEMX3 013550 

MEOP 016411 
| 016417 

MSGADR 016514 
MSGDAS 016735 
MSGMON 016453 
MSG 016570 
MSGPRG 016613 

SGP2 016647 
MSGP3 016715 
MSGSEL 016422 
MSGVEC 016544 
MSGO1 016632 


NEWIS 016216 
OPEN = 000000 


= 17 6 
PSTEMP 015174 
PUPS 015622 
PUVECS 015712 
PIINIT 007422 


PR ANE SRA OS MRO BOR ES Ot neem ee one ene ee 


O7=JUN=82 16:32 


3994 


BaSceveseern 
¥ ar aanee 


eceeeg 


I a nel ot at id od a wal mab od ad 
Sj 
a 








MACY11 gob gh 07-JUN-82 
23004 

828% 834 841% 1452 
1701 1717* 

565 697 1089 1620 

1715* 1839 1915 1919 
1752 
22574 
22594 
22718 
22994 
22654 
22798 
22834 
22894 
22964 
22604 
2e7 5a 
22864 
11314 11324 11334 
11444 11454 11464 
11574 11584 11594 
11704 11714 11724 
11834 11844 11854 
11964 11978 11984 
12094 12108 12114 
12224 isa 1 td 
12354 12 12378 
1248 12498 125 
12614 12624 1 
isons ee | 
13004 13018 1 
13134 13148 1 
Ed 13274 38613, 
13394 Hf 23 1 
ise Tice | 
13784 13050 1 
22 

5 521 

533 5 
578 579 
21118 2133 
13874 
936 939 19 
667 739 
7644 
756 7634 
7784 885 
14084 
"Sao Pele gSee 1610 

* & oe e 
$05 20394 
2112 21208 21424 


I 4 


16:36 PAGE 49 
ROSS REFERENCE TABLE == USER SYMBOLS 


1454 
1888 


1459* 


Re 


ab aed and od aed 

ONO iw 
, a) 
zw 


~ 
cs 


SEVSTes 


a 
sae 
nd add cade cole cael cual condh end wel cals cole wendy cul cond candy cans wands cant cms cmd 


ok end nd od ceed ed ene cand dt cal coeds edd cand enh nl eal cel el cel eed 


Seeee 


2208 


1465" 1656 


Se OF ES EE EES fee Le me eee 8 8 > 





1578* 


PD PQ at mt et ee 


&N—© 


He tN wo Ui 
SeSovssves 


meet en ceo wend were weed com crc) ame med 


och cent enh eacld end cual exalt canlt coal) cond cult cnalh cul) cual eel cecdt cane cul een cmd 
MR 
+ 
a 


1725* 


1580* 


SBBRARVLVYS Sac. 
SFE uese eee 


roel ams ed cree ned) meal ed cond cel wat 
sere 
Vete 


2032 


1583 


2036* 


1630* 


1632* 


1635 


SEQ 47 


J 4 


Ft ge DJi1 EXER & ONLNE MACY11 30A(1052) O7=JUN-82 16:36 PAGE 50 


BG.P11  O7=JUN-82 16:32 CROSS REFERENCE TABLE -- USER SYMBOLS 
P2INIT 012060 14284 
P2RISR 013042 1483 1487, «1491s « 1495, «1499'S s«1503~—S—1507 
| 1535 1539 1543—Ss«(1598# 
'P2XISR 012650 1485 = 1489 *493 1497S 1501 -—s«1505 ~—-1509 
| 1537, 1541 «1545-1552 
—P3INIT 013270 16758 
P3RISR 014320 1758 §=©1762 «=««1766)~—Ss«1770/=2S's«*d1774~=Sts«41778~—S—«W:782 
| 1810 1814 1818 18664 
| P3XISR 014170 1760 1764 1768 1772 1776 1780 178% 
: 1812 1816 1820 18278 
| RCVCNT= 004313 S62" = 839e = B75—s«*10978 
| RCVISR 011114 960 964 #968 972 976 980 98% 
| 1012-1016 1020 1066" 
RCVLVL 001272 541# ©6804 «=-:*1433. «1680 
RCVTAB 002312 556@ = 837" «1088 = 1099 = 1571 «1574 =: 1625 
1914* 1915 1917% 1919% 1920* 1921 1932 
READIN 015030 729741 2004H =. 2210 
READS 015176 2005 = 20414 
REPORT 006676 644 655 
RESTAR 007316 508 747 7568 1957 213 
RETURN 016442 658 736 1585 1640 226 
RISRO 010400 802 960" 
RISR1 010420 9644 
RISR10 010600 9928 
RISR11 010620 9964 
RISR12 010640 10004 
RISR13 010660 10044 
RISR14 010700 10084 
RISR15 010720 10128 
RISR16 010740 10164 
RISR17 010760 10204 
RISR2 010440 9684 
RISR3 010460 9728 
RISR4 010500 9768 
RISRS 010520 9804 
RISR6 010540 9844 
RISR7 010560 9884 
R2SRO 012250 1431 14834 
R2SR1_ 012270 14874 
R2SR10 012450 15158 
R2SR11 012470 15198 
R2SR12 012510 15234 
R2SR13 012530 15278 
R2SR14 012550 15318 
R2SR15 012570 1535¢ 
R2SR16 012610 1539" 
R2SR17 012630 15434 
R2SR2 012310 14914 
R2SR3 012330 14954 
4 012350 14998 
R2SR5 012370 15034 
R2SR6 012410 15074 
R2SR7 0124630 15118 
R3SRO 013570 1678 1758 
R3SR1 013610 1762" 
R3SR10 013770 17908 


LOLOL LLL LL EO A INE cs le ee LOE LOL LE OL EE . sw > - —- ° 





1511 
1513 


1786 
1788 


988 


1627* 
1923s 


1515 
1517 


1790 
1792 


992 


1638* 


1519 
1521 


1794 
1796 


996 


1704* 


1523 
1525 


1798 
1800 


1600 


1893 


1899 


SEQ 48 


K 4 





SEQ 49 
CZDJBGO DJ11 EXER & ONLNE MACY11 30A(1052) O7=JUN-82 16:36 PAGE 51 
—CZDJBG.P11 = O7=JUN-82 16:32 CROSS REFERENCE TABLE == USER SYMBOLS 
R3SR11_ 014010 17944 
| R3SR12 014030 17984 
/R3SR13 014050 18024 
/R3SR14 014070 1806# 
| R3SR15 014110 18104 
R3SR16 014130 18144 
/R3SR17 014150 18184 
| R3SR2 013630 17668 
R3SR3 013650 177 
R3SR4 013670 17744 
R3SR5 013710 17788 
R3SR6 013730 1782 
R3SR7 013750 17864 
SAVIT 001214 518# = 742 743 
SCOPE = 104400 458# 
SELPRO 007170 7268 = 731 757 759 
SIXBIT 011274 1118 1 
SPACE 016450 1998 2264# 
STACK = 001200 490# 567 780 §= 1409 Ss«*1655 
SUM 001310 5484 = 895" = («912k «913 916* 917 918 919 920 922* 923 
SUSWRR 016236 569 22268 
SVSWO 001220 S208 839s 735 750 826 1450 1695 
SVSW1_ 001222 5214 
SVSW10 001240 52 
SVSW11 001242 5298 
SVSW12 001244 
SVSW13 0012 5318 
SvSW14 0012 5328 
SVSW15 001252 5338 
SVSW16 0012 
SVSW17 00125 5358 
SVSW2 001224 5228 
SVSW3 12 234 
SVSW4 001230 5248 
SVSW5 001232 5254 
SVSW6 © 001234 52 
001236 5278 
SWITCH 007230 7364 8 8©6— 746 
001210 Bilt 382, 73 732 829 843 932 «©1945 1969 1973 1983 2204 2215e 
SWREG 000176 5034 14 : 2207. 2233S 2240 
SWREQ 01 2206 +2 id 
Sw10 = 409# 19% 1968 1969 
SWil = 4084 
= 4074 86.93 
= 4064 197 
= 405 
= 404m 
= 412m 
= 411# 1987 
5450 B86e 944 
® & 
001304 5464 8897" = =—-_-«946 
001216 5194 590 38 * 889 
364 2211 21 2242* 2263% 224648 2245 22504 


016 
016366 888 2534 


re Ee RS ee ee ee en ee ow ee . 





L 4 


| SEQ 50 
_CZDJBGO DJ11 EXER & ONLNE MACY11 30A(1052) O7=JUN-82 16:36 PAGE 52 
CZDJBG.P11 = 07=JUN-82 16:32 CROSS REFERENCE TABLE -- USER SYMBOLS 
TYPE = 000004 460# 610 657 658 659 662 665 728 736 737 740 888 934 
| 937 19441947, 1948 = 1971-1975. 1981 =: 1998 ~=—s «2054 «2057 «Ss 2064 ~=S(si2107—Ss«286 
| 2155 2164 «= 2206_~S—s«é220 
' UNITS 001264 5384 = 608 ~— «68 666 676 695 745 749 851 1663 1723 1738 
| VECADR 001270 540# 86 630* = 66 801 1630 1677 
XISRO 010410 9624 
XISR1 010430 9664 
XISR10 010610 9944 
XISR11 010630 9988 
XISR12 010650 10024 
XISR13 010670 10064 
XISR14 010710 10104 
XISR15 010730 10144 
XISR16 010750 10184 
XISR17 010770 10224 
XISR2 010450 9704 
XISR3 010470 9744 
XISR4 010510 784 
XISRS 010530 9824 
x 010550 
XISR7 010570 9904 
XMTCNT 604312 S614 = 562 838* 868 1038 1041" 1457 1561 1564* 1573* 1586" 1661 
XMTISR 011000 962 966 970 74 978 982 986 990 994 998 1002 1006 1010 
1014 1018 1022 #10 
ATEN borsi2 sees on "336 O 10628 1065" 1411 1456 1563 1567¢ 1571e 1572 585 
we & os * a ® +. | e 
1640" 1657 15050 1731 = 1836S «1837* «= 1838+ §= = 1839S «1841* «= 1842) s:«1845* 41911 «19218 
X2SRO 012260 14854 
1 0712300 14894 
X2SR10 012460 15178 
X2SR11 012500 15214 
X2SR12 012520 15254 
13 012540 15298 
X2SR14 012560 15334 
15 012600 15374 
X2SR16 012620 15414 
7 012640 15458 
12320 14934 
X2SR3 012340 14978 
012360 15018 
X2SR5 012400 15054 
012420 15094 
7 012440 15138 
X3SRO 01 1760# 
X3SR1 013620 17644 
X3SR10 01 17928 
X3SR11 014020 1796# 
X3SR12 01 18004 
x3SR13 01 18044 
X3SR14 014100 18084 
X3SR15 914120 18124 
X3SR16 014140 18164 
X3SR17 014160 18204 
x3SR2 OO 17 
X3SR3. 013660 17724 
X3SR4 013700 17764 





M 4 


MACY11 30A(1052) O7=JUN-82 16:36 PAGE 53 


CZDJBGO DJ11 EXER & ONLNE 
CROSS REFERENCE TABLE == USER SYMBOLS 


| 
feng 07=JUN-82 16:32 
X3SR5 013720 17804 
X3SR6 013740 17844 
Xx3SR7 013760 17884 
YESRT 015716 21454 
SENDAD= 014622 499 19524 
. = 017000 4914 495 4984 5014 5054 5074 5104 5548 
1952 1959 1975 19764 1981 19824 1984 1989 
2096 2099 2104 21104 2135 2139 2155 2164 
-BIT = 132000 aap 404 405 406 407 408 409 41 
PR 015532 2076* 2078 2080* 2081* 2083 2087 2097* 2098 
. PRF 015452 2085 2088 20934 
-PRL 015430 20864 2102 
-PTIT 015416 2077 20824 
-SAVR6 015710 2119% 2123 21414 
-TYPE 016132 2056* 2057 2185* 2186 22024 


Se Se. er ee eee ee 


rn oe ee |. reece LOLOL LLL BELG LE GES A th 


5564 


1990 
21674 2191 
411 


2101* 


5594 
046 


412 
2103 


5614 
2054 


1945 
2107 


5644 
20694 


1968 
21104 


SEQ 51 


13994 
2079 


1973 
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MACY11 30A(1052) 


EXER & ONLNE 
O7-JUN=82 16:32 


_CZDJBGO DJ11 
— C2DJBG.P11 


SVSILISAAS 
FRRSSKMS ORS NIM 


Oe eee cet cee cel coal ceecli eel weed cool cid meal Guill, meal tbe maid cael 


AR DORK—M~s OR AOCUMINDOO 
SH NAIUAIAINIRIMEIAMIA NS 


er ee re eee eI a aoe eel cool noel wooo teeeel, coed meal 


AR eKonannnK KANN 
WR DOK Ms OR AOCUMIN OO 
eee Rinrcucncucusurrrrnmenm : 


HW OR OR VO OK VOR Oe Oe 
WER GBOreM wT OK AOCUM M00 


oe SS © SCS CFF CF SF CF EF EFF EE 


2127 
2113 


COWMOMOMOMOWMOMOMNOM 
WWE DOr MTOR. AOCIMMOe 
= CUCU CUCU CUCU CUM MMMM Mm 


2033 
2007 


DFA FATA PA FA PO oO or 
MN ODO —CuUsrF'NK. DOeM«~sF OR 
KU CKUICUCUCUCUMMMMMAM 


1933 
1866 


GOP) COM) GOP COM) GON) COM) GON) 00M) CO so 
MAN ODO — OUTER. DOr Ma~r OK. w 
CIC CUCUICUI CUM MMM Mmm t+ «] 


1827 


mor. CUR CUR. CuK CUR. CUR CUR CUR a > 

MN ODO —CUTNKR DO—-M~F OK - 

SNUCK CUCUCUCUMMMmMmMmrn ~ wo 
pene Cc 


Or OO OR On- O- On- Oe —O MNaD 
MN ODO CUT iNKk. DOM. Or ~FINO 
Pe NICUCUCUCUCUMMMMMMm ven 


OL mam Nm 


2168 


MOMOMOMOMOMOMOMOoONM 
= = CUCU CU CUCU CUM MMMmMmm ™N mown - 
EL ~N NE MN 


SF AFAR TAT ATA TOT Ow 
ce 


101 
981 
666 


= = CUNEO CU CU CUMMMMmm) 


1 COM) 00) CON 00M) G0 1) 00) 00) CO IY) 
2) ooo 
--—M 


663 


CONE CUI CUCU CUM MMMM 


Ars OU CUR CUR CUR CuK punk CuK 
Mm~sor SSUENS Opn ys % BH 3 Seas. 
NC = 


SEGRE eee ATTA SASS ASST 
He tL a 
SE OOO CUCM MMMM mr 


BCP 
BITYPE 
BLKBLK 
BUFHDR 
DUMP 
DUMP18 
FILBLK 
LNKBLK 
ODT11 
ODT11Xx 
POP 
PRINT 
PUSH 
SCOPE 
SCOP. 
SDUMP 
TRACE 
TRNBLK 
TYPEM 
WRITE 
$CATCH 
SCMTAG 
SCNTL 
SEND 
SEQUAT 
SHLT 
SIOCAT 
$10T 
$KBIN 
SKRAT 
SLOADR 
SOCTAL 
SPOWER 
SRAND 
SRANDG 
$READ 
$SCOPE 
$SETUP 
$SRAT 
$SWDOC 
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" $SWROF 


SEQ 53 


514 
1# 2225 
iki 
1% 2173 
SURAT 14 
: 14 
14 


- ABS. 017000 000 


CZDJBG, CZ2DJ8G/SOL/CRF /NL : TOC=CZDJBG.MAC.CZDJBG.P11 
RUN-TIME: 5 CONDS 


RUN-TIME RATIO: 38/14=2.7 


ERRORS DETECTED: 0 
CORE USED: 20k (39 PAGES) 


wr eee eee ee eee LSE LL A 


ee ot tee 


